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Exciting 
Entertaining 
Software 
for the 
Apple II and 
Apple II Plus! 

If you liked "Invaders", you'll 
love ASTEROIDS IN SPACE by 
Bruce Wallace. Your space ship is 
traveling in the middle of a 
shovi^er of asteroids. Blast the 
asteroids vtrith lasers, but beware 
— big asteroids fragment into 
small asteroids! The Apple game 
paddles allow you to rotate your 
space ship, fire its laser gun, and 
give it thrust to propel it through 
endless space. From time to time 
you will encounter an alien space 
ship whose mission is to destroy 
you, so you'd better destroy it 
first! High resolution graphics and 
sound effects add to the arcade- 
like excitement that this program 
generates. Runs on any Apple II 
with at least 32K and one disk 
drive. On diskette — $19.95 
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TO ORDER: 
CALL TOLL-FREE 
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(In NH call 673-5144) 
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EDITORIAL 



by Mark Pelczarski 



Why a Computer? 

I suspect that most people can 
explain this computer hobby quite 
easily. They probably use their 
computer mostly for some kind of 
business purpose: accounting, 
inventory, data storage, or maybe 
word processing. During the off 
hours it becomes a hobby 
-learning to program or playing 
some newfangled game. When we 
talked about doing an article that 
would give some reasons justifying 
the purchase of a computer (see 
George Blank's in this issue), I 
found myself wondering if I'd had 
any really good reasons when I 
bought one myself. 

You see, I'm ordinarily very 
suspicious of electronic gadgetry. 
I find things such as electric can 
openers to be rather silly devices, 
and, at least philosophically, I 
think televisions and stereos have 
done more harm to mankind than 
good. (But guess what I'm 
watching as I write this...) Food 
processors are scary contraptions, 
and I still haven't figured out why 
someone would buy an electric hot 
dog cooker. But back to the 
subject, why would someone 
who'd rather be in the High Sierra 
with a backpack when others 
would be in a Reno hotel spend 
over $1000 on a computer? 

My admitted reason was that 
since I was teaching about 
computer programming, my own 
real live computer would allow me 
to stay knowledgeable in that field. 
That may have fooled others, but 
not me. Perhaps that was part of 
the reason, but I wasn't really so 
dedicated that I'd make that large 
an investment toward my job out 
of my own pocket. 

What about other reasons? I do 
find my computer invaluable now 
as a text editor, but when I bought 
the computer, before I got 
involved in editing, my Smith- 
Corona did just fine. My 
Christmas card list isn't long 
enough to merit a data base 
program, and I don't even last 
very long with most computer 
games. Although I can occupy 
time well with a chess program. 



some of the adventure programs, 
or an occasional arcade-typw game, 
I'm basically a pinball dropout. 

Actually, I CAN'T provide a 
complete set of reasons why I 
bought a computer. I suppose the 
pioneer argument would do ~ 
being like the first ones to buy 
televisions or automobiles, but 
that's too profound. Instead, I'm 
inclined to fall back on something 
Kurt Vonnegut wrote. It's from a 
book almost thirty years old, 
Player Piano. 

The story is set in the not so 
distant future, in which every 
aspect of production is controlled 
by machines. A few people 
supervise acres of automated 
factories, but most people work 
little and get bored a lot. 
Boredom eventually brings on a 
hatred of the machinery, and at 
the climax a revolution occurs as 
people unite to destroy anything 
that even looks mechanical. After 
successful destruction, the 
revolution's leaders decide that 
they'll try to create a model society 
of how man can live without 
machines; but as they confer 
amidst the battered rubble of an 
old railway station, they find a 
group o f their revolutionaries 
gathered around a disabled 
Orange-O machine. From the 
back they can see several of them 
tinkering with it. "Filled the cup 
almost to the top that time; and 
she's nice and cold now." "But 
the light didn't work... fix that 
too." The very people that 
professed so strongly against 
machines had this innate urge to 
tinker with what was left! Get 
this to work, and make it do that, 
etc., etc. 

I suppose the idea there comes 
close to my reasons, but how 
would others justify the expense? 
Well, in addition to the data and 
word processing capabilities 
mentioned earlier, a lot can be 
learned from and about computers 
by having one. The educational 
side of computers is not yet 
strongly developed, but there's 

continued on page 69 



TRS-80 owners 

Explore new worlds 

with chatterbox: 



The MICROMINT INC. introduces 
its latest data communications product, 
the "CHATTERBOX," The CHATTERBOX 
is a unique packaging combination of 
the presently available COMM-80 I/O 
interface for the TRS-80* and an 
acoustic modem. This one box is 
all that is required to turn even a 
barebones 4K TRS-80 into a full 
timesharing terminal. 

The CHATTERBOX 
includes a built-in programmable 
50-19200 baud serial port, a 
Centronics compatible parallel 
printer port, a 300 baud 
acoustic originate modem, and 
a spare TRS-BUS expansion 
connector. It comes complete 
with power supply, ribbon 
cable and connector, user's 
manual, and smart terminal 
software for immediate 
operation. When the modem , 

is in use, the complete data y 

conversation is automatically 
routed to the serial output , ,^ 

port and parallel port ..ssigMhfeai 
where it can be 
logged on a printer. , 



The CHATTERBOX is the only 

peripheral needed to allow a TRS-80 to 

communicate with timesharing systems 

such as Micronet and the SOURCE. 

In addition, CHATTERBOX can be 

used simply to provide an address 

selectable serial and parallel port. 

It is completely hardware and 

software compatible with existing 

TRS-80 products and connects 

either to the keyboard connector 

or screen printer port on the RS 

Expansion interface. It does 

not require the RS Expansion 

interface for operation. 

CHATTERBOX. 
$259.95 

J • Full 8-bit parallel port. 

• RS-232-C serial port 

(up to 19,200 baud). 

,, 'Acoustic modem. 

m • TRS-BUS connector for 

*' future expansion. 

• Connects to Keyboard or E.I. 

' Includes terminal software. 

• Users manual. 

• Power supply 




TO ORDER TOLL FREE: 

1-800-258-1790 Im NH can 67.15144) 





Unlock the Hidden Power 
Of Your Computer! 

Program fast & easy! 

Use ROIVI routines in your BASIC 
and Assembly Language 

programs! am you need to know is in . . . 
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Pdthiuays through 
the RDM 




INCLUDES: 



SUPERMAP 

from Fuller Software 

previously sold at $18.95 

TRS-80 

Disassembled 

Handbook 

by Robert Richardson 

previously sold at $10.00 

Hex Mem 

by John Phlllipp 

monitor written in BASIC. 

Z-80 
Disassembler 

by George Blank 



TO ORDER CALL TOLL-FREE 

1-800-258-1790 

In NH call 673-5144 
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Guide to Level II BASIC 

and DOS Source Code $19.95 piu, $i .hippmg 



Description of the contents of ttie Level II BASIC 

ROfVl by memory location, by function, and in lesson format. 

Includes several BASIC and Assembly Language programs 

in listing format to examine and use ROM routines 



^ A SoftSide Publication 



'^ PROGRAMMING TIPS T^ 



Dear SoftSide, 

Appletalker by Bob Bishop and 
Bill Depew, distributed by Softape, 
is a great way to add speech to 
your Integer programs. However, 
Appletalker only saves and loads 
the "Talkertables" to tape. 

The following short Integer 
program will save "Talkertables" to 
disk after they have been recorded 
with the Appletalker. The program 
also displayes the starting address 
and length of the table in decimal. 

When using the "Talkertables" in 
a program follow all the 
instructions furnished with 
Appletalker, except the voice table 
loading and saving instructions. 
Make sure you load the 
Appletalker subroutine package 
mentioned in the instructions. 

A short routine such as the 
following may be added to a 
program to load the Talkertable 
from disk after it has been saved: 
10 D$="": REM CTRL D 
20 PRINT D$;"BLOAD FILE 
NAME" 

Substitute the file name given to 



the recorded table previously saved 
for FILE NAME. 
Sincerely, 
Bart Immings 

10-28 Clear screen and print 
program heading. 
29 Has a table been recorded? If 
yes 32 If no 31 

30-31 Instructed to record a table- 
Exit. 

32 Calculates end of table address 
(assigns variable A). 
35 Calculates length of table 
(assigns variable B). 
45 Prints prompt for file name 
48 String dimension for file name. 
50 Input file name (variable C$). 
52 Displays command used for 
saving table (file name, starting 
address and length). 
55 Assigns CTRL D (variable D$). 
60 Saves table to diskette. 
100 End. 

5 REM TALKERTABLE SAVER 

6 REM BY W«T IMMINGS 5-18-80 
10 CALL -9361 VTAB 2 

20 PRINT " 



22 PRINT "<« PROGRAM FOR SAVING TA 

LKERTAELES >»" 
25 PRINT " 



26 VTAB 12! PRINT "TABL£ MUST BE RE 
CORDED WITH APFtETAlJ<ER PROGRAM 
BEFORE TABLESAVER WLL OPERATE!" 

28 fimn : print : f-rint : f-rint 

29 ff PEEK (10) (»< ( PEEK (11) 
♦16) THEN 32! F-RINT "A TABLE tViS 

NOT BEEN RECORDED" 

30 VTAB 18: PRINT "RECORD TABLE HH 
H APPLETALKER" 

31 END 

32 A= PEEK (11)1256+ PEEK (10) 
35 B=A-1095 

45 VTAB 12! PRINT ">»ttT FILE NWt: 



18 DIM C$(1fl) 
50 DfUT C* 



';c$; 



",A4096,L"?B 
55 Di="" 
60 PRINT D«;"BSAVE";C$;".A4096,L" 

;e 

100 END 
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TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 
FROM ONLINE SYSTEMS 

HISE 

3u play and see 

)VENTURE in 

rooms of this 

npiete with ob- 

are transported 

r .u Apple 
n you enter the 48K/Machine 
itngue and can Language 
being murdered $24.95 
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cret passageway Vj--'^ 
u to the answer. 


nKRV HC 

the use of over a hundred Hi-Res pictures yc 
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glish (it understands over 3(X) words!) All 
3ld house appear in full Hi-Res Graphics cor 
can get, carry, throw, drop or? ? ?. 
irticular HI-RES ADVENTURE game, you 
»nt yard of a large, old Victorian house. Whe 
u are pulled into the mystery, murder and ii 
until you solve the puzzles. Your friends are 
ne. You must find out why, and who the kille 
he killer may find you! As you explore the 
be solved and hazards to overcome. The se 

may lead yo 



HI RESOLUTION 
DRAWING 

Connect any points on 
the screen, fill areas, 
paint with a set of nine 
"brushes" (or define 
your own), and 
draw with, plot, 
rotate, and scale 
shapes that 
you define. 




Design shape tables with 
keystrokes or paddles. 

Also included are Applesoft 

Invaders and Slot Machine — 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs. 
32K Applesoft ROM . $29.95 on 
diskette 
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SAVING TIME AND 



FINGERTIPS 



SAVING TIME AND 
FINGERTIPS is primarily for S-80 
tape users, but pertains to all 
computers. 

by Shane Causer 

Well, you did it! You spent three 
hours typing "GALAXY 
COMBAT 2" or "STAR TREK 
III.4". Boy, all those PEEK and 
POKE addresses sure gave you a 
rough time, not to mention all 
those CHRS's, but it should be 
worth it! Slowly, and with 
immense satisfaction you type 
RUN, and you get what took you 
three hours of keyboard time ... a 
nice clear screen and the words 
"MEMORY SIZE?" 

If this has ever happened to you, 
no matter the program, join the 
club! It happened to me twice with 
the afore-mentioned programs. But 
then I learned (from experience) 
the easy way to save time. This 
procedure can be described in 
seven steps as follows: 

First, type the command 
SYSTEM, then /O. This gives you 
a completely clean start of 
memory. 

Second, while in command 
mode, POKE 16396,165. This will 
disable the BREAK key, but a 
SHIFTed BREAK works like an 
ordinary BREAK. If you have ever 
typed a long line just to 
accidentally press the BREAK key, 
you know what happens, it simply 
erases the line from computer 
memory ! 

Third, after answering the 
"MEMORY SIZE?" question, 
carefully ENTER the program, 
being conscious of the SHIFT key. 
Always remember the eleventh 
commandment: "Yea verily, thou 
SHIFTed character be not the 
same as thou unSHIFTed 
character", or, translated, 
SHIFTed characters aren't the 
same as unSHIFTed characters. 

Fourth, "CSAVE" the program 
before you RUN it. This is 
important, especially if the 
program has a POKE, USR, 
DEFUSR, or some other machine- 
language-related commands. If you 
did make a typographical error. 



and you attempt a RUN, it could 
result in a "MEMORY SIZE?" 
question or an unexpected clean 
sweep of memory. 

Fifth, RUN the program. If what 
happens is supposed to happen, 
then carefully remove the 
"Certificate of Honor" that is in 
this issue between pages 27 and 28. 
If not, use TRON and TROFF to 
debug the program, but only use 
this if there are no error messages. 
If you got an error message, EDIT 
that line so that it is the same as it 
was in the source program from 
which you typed it. 

NOTE: Not all errors occur in 
the lines that the error messages 
point to. In such cases, EDIT the 
line preceding the "error message 
line". 

Sixth, keep RUNning the 
program. Your errors may be in 
lines that occur later in the 
program. If your program has 
several different options choose 
each of these options so that you 
know that no errors can occur in 
these lines. 

Seventh, once the program is 
running properly, CLOAD? it with 
the program on tape. Unless you 
made some corrections or changes 
in the resident program, there 
should be no discrepancies. If there 
are (and a BAD message will 
appear to tell you), CSAVE the 
program again. 

Granted, this will take about 5 - 
10 minutes longer than normal, but 
you'd best decide whether you 
want to spend 10 minutes longer or 
three hours longer. The logic 
behind this set of procedures will 
take time to become routine, but it 
is darn well worth the trouble! 
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How's your 
love life? 



A little dull around th" edges? Routine? Predictable? Boring? Maybe all it needs is 
a little Interlude. Interlude is the most stiumlating computer game ever conceived. It 
combines a computer interiew, an innovative programming concept, and a one-of-a- 
kind manual to turn your love life into exciting, adventurous, delicious fun! 

With over 100 Interludes, you can satisfy all levels of interest and desire. Each 
Interiude is fully described in the manual, and the more elaborate ones are detailed 
with regard to settings, props, and mood enhancing techniques. But we've saved a 
few super Interludes for that very special time when your interview indicates you're 
ready! At that time, you will be introduced to one of several Interludes held secret 
within the computer. (When you learn secret Interlude #99, your love life may never 
be the same again!) Interlude can give you experiences you'll never forget. Are you 
ready for it? 

For the Apple (16K I ) $16.95 for cassette 

or the TRS-80 (Level II, 16K) $19.95 for diskette 
TO ORDER TOLL FREE 1-800-258-1790 (m nh call 673-5144) 




Interlude 

The Ultimate Experience. 



fiUMA 





FROM SENSATIONAL SOFTWARE 

• Super Invasion is the original invasion game, 
with the original moon creatures and faster action 
than any other invasion game. 

• The best Invaders available for the Apple, as 
good in every way as the famous invaders game. 

• High speed action! • Sound effects! 

• Runs on the Apple II and the Apple II Plus 

Fifty-five aliens advance and shower you with lethal writhing electric worms. As you pick off 
the aliens, one-by-one, they quicken their descent. They whiz across the screen wearing away 
your parapets, your only defense, coming closer apd closer to your level. Super Invasion is the 
original Invasion game with the original moon creatures and faster action than any other Invasion 
game on the market. 

Super Invasion Is available for only $19.95 on cassette for a 32K Apple II. 

TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 



"Tired of Disk 
Errors? Stop 

blaming your 
drives . . . 

FIX YOUR DOS!!!" 

NEV\riX)S 

BY APPARAT 



NEWDOS 



NEWDOS corrects over 70 errors and omissions in TRSDOS2.1 
and disk BASIC, yet they are completely compatible! Programs 
SAVEd under either system need no modification to work with the 
other. Like going from Level I to Level II: more power, convenience 
and speed. Use all DOS commands (DIR, FREE, RENAI^E, COPY 
etc.) from BASIC, AUTO LOAD and RUN a BASIC program from 
power-up, produce variable and constant cross reference tables, 
OPEN "E" to add to the end of a sequential file, send whatever is on 
the screen to your printer, even in DOS (great for DIR). renumber 
BASIC programs, and more . . . Fully documented: available on disk 
for only $49.95 



NEWDOS PLUS 



ALL of the above PLUS: Editor/Assembler for disk, Z-80 
Disassembler, LI^OFFSET to relocate and save SYSTEM tapes to 
disk. Level I BASIC language with disk I/O. DIRCHECK to check and 
LIST disk directory. SUPERZAP-display/print/modify any location 
in RAfVl or on disk (worth the price of the entire package when you 
resurrect that accidentally KILLed file!). NEWDOS+ on disk with 
documentation, just $99.95 



NEWDOS/80 



Brand new from Apparat. their most powerful DOS ever. 
EVERYTHING in NEWDOS and NEWDOS+ and more: Variable 
length records (up to 4095 bytes), mix or match your disk drives: 35. 
40 and 77 track drives can be used in any combination — even with 8 
inch drives, new security boot-up sequence makes it impossible for 
the unauthorized to BREAK or LIST. "DOS READY" and "READY" 
need never appear, enhanced RENUIVIBER allows relocation of 
subroutines, powerful program CHAINing. option to PRINT on 
display and printer simultaneously, execute DOS commands— from 
DOS— without disturbing your resident BASIC program. Put the 
"DOS of the Eighties" to work for you. On disk, with all 
documentation. $149.00 

TO ORDER TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) 6 South St.. Milford. NH 03055 




A Column of Your Letters 
Responses to Software Pirate 
Dear SoftSide, 

I was amazed that any person 
would write such an article which 
displays such selfish attitudes and 
complete disregard for his fellow 
man. I am confident he is in the 
minority. 

Believe it or not, software pirate, 
I am one who does not subscribe 
to your standard of morality, and I 
know others who feel the way I do. 
Instead of attempting to rationalize 
your actions with the list cited in 
the article, I suggest you furnish 
your minister with your letter and 
the responses you caused and 
request he prepare a sermon on the 
subject. Although, you state you 
can get sermons on Sunday (not 
that you do) I suggest you arrange 
to be there. Our country and the 
world cannot survive with attitudes 
such as yours. 
John J. Koback 
Silver Spring, Maryland 



Dear SoftSide, 

In regards to the letter from the 
"software pirate" in the July issue - 

It appears to me that the person 
writing the letter has a basic lack 
of personal integrity and was trying 
to give reasons or excuses to justify 
the action (of copying software). 

However he (or she) was not 
totally sure it was the right thing to 
do as demonstrated by the 
unsigned letter. 
Mike Murnane 
Palo Alto, California 

Snake (Eggs) in the grass (shack) 

Dear Mr. Christopherson 

On Saturday, the 12th of July, 
1980, I visited a Radio Shack store 
located at the North Dekalb 
Shopping Center, North Druid 
Hills Rd., Decatur, Georgia. 

1 was looking over the programs 
available for the TRS-80 (I own a 
TRS-80 Level II, 16K version). The 
dealer had on display two cassettes 
with no documentation, merely 
labeled "Snake Eggs." The 
program was contained on Radio 
Shack's Supertape Gold C45 
cassette. I thought it might have 

continued on page 72 
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INTERPRO 

presents . . . 



ULTRA MON 

THE INTELLIGENT MONITOR. 



The first intelligent monitor available for the TRS-80 (tm Tandy 
Corp.). Ultramon is the first ROM independent machine language 
monitor which puts you in COMPLETE CONTROL with 
exclusive INTERPRETIVE EXECUTION. 

Each instruction is individually fetched, decoded, 
disassembled, and analyzed by Ultramon's "BRAIN" so that your 
efforts cannot "Bomb-out" and so that you can put breakpoints 
anywhere . . . You can even put breakpoints in ROM. 

ULTRA-MON displays, disassembles , traces (hard-copy trace 
disassembly, too!) lineprints, modifies, relocates memory, and 
even relocates itself with it's commands. This 13 page 
documentation SHOWS YOU HOW TO DO IT. 

Totally ROM independent, Ultramon will work in both the old 
and the newer ROM and will not be affected by any lowercase 
modifications. 

Cassette . . . $24.95 



TO ORDER TOLL-FREE 

l-SOO-258-1790 

(In NH call 673-5144) 
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New Products for Your Apple 



STRATEGIC SIMULATIONS 



AMBUSH 



$59 95 



Computer controlled mapboard of a typical French village 

Step-by-step computer regulated play 

Extensive line of sight rules providmg for hidden movement 

Each soldier individually rated for strength, intelligence, dexterity, and marksmanship 

Realisitc weapons, characteristics, and explosives 

Sophisticated movement rules permitting running, vi^alking. crawling, dodging, and sneaking 

Simultaneous execution of orders 

Ability to save a game in progress and restart it at a later date 

Playing time 1 to 5 hours 

48K Machine Language - Disk 



SYNERGISTIC SOFTWARE 



MUSE 



MODIFIABLE DATA BASE $79 



50 



The Modifiable Database is a rapid response, general purpose data management system 
that can be automatically customized to the user's particular data storage, access, and 
manipulation requirements. The programs will create, under the user's direction, any number 
of new special purpose data management programs One can make his own inventory 
control, accounts receivable, sales analysis, bibliography, memo programs, etc The variety 
of applications is limited only by the user's needs and imagination Features include; 

EASILY CUSTOMIZED ■ The self prompting set-up program automatically modifies the 
basic program at the user's direction The user specifies the number of fields, field lengths, 
headers, and a new program title. The customized application program is then created and 
saved to a new disk 

CONVENIENT DATA ENTRY - All required inputs are prompted by the program 
Recurring_ information and default values can be entered with a single keystroke 

FAST RECORD ACCESS - Single keystroke commands allow any of 230 on-line records 
to be displayed instantly for editing, printing, or deleting. Up to 2000 records on 2 disks can 
be searched and/or printed with a single command. Data access and manipulation have 
never been faster or easier 

MACHINE LANGUAGE SEARCHES AND SORTS - Any record can be found in less than 
one second by specifying all or part of any 1 or 2 fields. A file of 230 records can be sorted 
in less than 1 minute Sorted files can be displayed, printed, or saved The Modifiable 
Database is supplied on disk and requires 48K of RAM and Applesoft firmware. 



THE VOICE $39 
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The Voice gives your Apple the power of speech! Use the standard Voice vocabulary to 
speak an endless combination of phrases, or easily record your own vocabulary and make 
your Apple say anything you like Each data disk stores up to 80 words or phrases which 
can be sorted for quick reference What's more, the Voice allows you to speak from any 
Basic program by using Print Commands. Guaranteed the best and easiest to use speech 
software available. For the Apple II or Apple II Plus with 48K. 



TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 



/.' 



What Do You Do With Your ^ 



Personal Computer? 



by George Blank 



The most difficult selling job I 
can remember was convincing my 
wife that it was worthwhile to buy 
a computer. Now, two years later, 
that computer has paid for itself 
and is making payments on the 
house, but many other people are 
still faced with the question of how 
to justify the purchase of a 
computer. 

I personally feel that the 
computer is so versatile that it can 
be justified in many different ways. 
It can be a source of extra income, 
a bridge to a new career, a tool to 
manage personal information or 
manage financial investments, an 
intellectual challenge, a device to 
broaden the horizon and 
opportunities of your children, or a 
relatively inexpensive opportunity 
for creative leisure. 

Programming for small 
businesses and for the mass market 
offers many opportunities for part 
time income related to 




by Mark Pelczarski 

The current state of the art of 
educational usage of computers is 
often a disappointment to those 
who see them as having great 
potential as educational tools. 
Why? Do people expect too much, 
or are the solutions really there, 
but unseen? 

The primary educational use of 
computers is in teaching computer 
programming: but what beyond 
that? It appears that with few 
exceptions, usually where grant 
money has been made available, 
not much. 

In the schools, if and when funds 
become available for computer 
hardware, they go either to 
administration or to programming 
classes. The prices of 
microcomputers may change that: 
the science, language, home 
economics, social studies, and 
industrial arts classes at least have 



microcomputers. There are also 
opportunities in applications, from 
running a small accounting service 
bureau to printing biorhythm 
charts. There are so many potential 
applications that anyone with a 
good imagination can probably 
think of new ones. 

People who have the need to 
keep track of a lot of information 
will find the computer worthwhile 
for this purpose. The computer is a 
natural for investment analysis, 
and those with stock portfolios or 
real estate investments will find a 
microcomputer profitable. 

Professional people who bring 
work home will find the computer 
helpful. Engineers and scientists 
may require the computational 
ability of the computer, while 
business executives and salesmen 
will require the ability to organize 
and display quantities of 
information. People in many other 



careers will have different uses for 
the computer. 

Computers are becoming so vital 
to our modern society that it is 
worth purchasing and 
experimenting with one just to 
understand what they can and 
cannot do. In a few years, the 
person who does not understand 
the applications and limitations of 
computers will be in the same 
position in the job market as 
today's high school dropout. 

I have been amazed at the effect 
of computer literacy on my 6 and 7 
year old sons. There are very few 
complex devices in our society that 
are available to pre-school 
children. We tell them that they 
have to wait until they are sixteen 
to drive, that they are too young 
for this and wouldn't understand 
that, but a computer is an entirely 
different matter. In a culture where 
continued on page 88 



COMPUTERS AND 
EDUCATION 



a chance now to have electronic 
aids, but it's still little more than a 
chance. Looking past the obvious 
hindrance of tight school budgets, 
computer programming classes 
themselves tend to grow in size and 
require more and more hardware 
support. Students are starting to 
learn about computers at younger 
and younger ages, hence needs are 
growing for more levels of 
programming classes. As 
computers become more 
widespread, this demand is likely 
to increase even more, and more 
hardware will be drawn away from 
other possible uses. It's unlikely 
that widespread innovation will 
occur in the schools — maybe only 
in small pockets here and there. 
Other sources for educational 
software development are colleges 
and commercial software 
companies. Unfortunately, 



educational software so far has not 
been very profitable in the 
commercial marketplace. Good 
educational software is extremely 
difficult to write. Aside from the 
programming aspect, the 
instructional goals must be 
throughly planned; one does not 
have the spontaneity of personal 
interaction to help. The most 
successful educational programs 
have been simulations, which are 
seldom sold as "educational". But 
since good educational programs 
are so difficult to produce, the 
overall quality of those on the 
market is mediocre. Anything 
labeled educational becomes 
immediately suspect, and the few 
good programs become easily 
overlooked. 



continued on page 88 
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GOAL 



GOAL is an Applesoft program 
requiring at least I6K. 

by Fred Pence 

We recently received a cassette 
full of nice little logic games from 
the author of this program. We 
were impressed with his 
implementation of the games and 
use of the Apple graphics. E.xpect 
to see more 'Pence Programs' in 
the future. 

In this game you and the 
computer alternately move a single 
counter until it reaches the goal 
area at the bottom. The player 
moving into the goal is the winner. 
You may choose who goes first by 
typing '0' for the computer to go, 
or a number 1-6 to make your first 
move into one of the si.x positions 
in the top row. Thereafter, you 
may move right, left, or down, but 
never into a previously occupied 
square. This program was adapted 
from a game in 'Mathematics in 
Michigan'. 



ILIST 

REH innmiiiniini 

1 REH n n 

2 REH n GOtL n 

3 REM II BY a 
^ REM « FRED PENCE « 

5 REM n II 

6 REM II NOV, 1979 « 

7 REM a o 

8 REM inmiiiiiiiiiiii 
20 HOME : GR 
30 DIM A(6,7) 
10 FOR Ml = TO 6: FOR M2 = TO 

7:a(mi,h2) = o; next m2: next 

Ml 

50 R = i:c = 1 

60 HOME : GR : COLOR= IJ FOR X = 

2 TO 38 STEP 6! »AJN 0,30 AT 

X: NEXT X: VLIN 31,39 AT 2\ VUN 

31,39 AT 38 
70 FOR Y = TO 30 STEP 6! HLIN 

2,38 AT Y: NEXT Y J HLIN 2,38 

AT 39 
80 REM PRINTING 'GOAL' 
90 COLOR= 12 
100 HLIN 5,10 AT 332 HIN 5,10 AT 

37: HLIN 8,10 AT 35: VLIN 33 



,37 AT 5: VLIN 35,37 AT 10 
110 HLIN 11,19 AT 33: HLIN 11,19 
AT 37: WJN 33,37 AT 13: VLIN 

33,37 AT 19 
120 HLIN 22,27 AT 33: HLIN 22,27 
AT 35: VLIN 33,37 AT 22: VLIN 

33,37 AT 27 
130 HLIN 30,35 AT 37: WIN 33,37 

AT 30 
140 IF PG > = 2 THEN PRINT "0. 

K. YOUR GO ";: GOTO 160 
150 GOTO 200 
160 PRINT "- A NUMBER FROM 1 TO 

6"*,: INPUT N 
170 IF N < 1 OR N > 6 THEN PRINT 

: PRINT "NO - YOUR GO ";: GOTO 

160 
180 IF N = INT (N) THEN 280 
190 PRINT : PRINT "AN INTEGER "; 

: GOTO 160 
200 PRINT "ENTER AN INTEGER FROM 
1 TO 6IF.Y0UHW<T TO GO FI 

RST." 
210 PRINT " IF YOU HAMT ME TO G 

FIRST ENTER 0"): INPUT N 
220 IF INT (N) = N THEN 260 
230 PRINT : PRINT 
210 PRINT " ENTER AN 

INTEGER" 
250 Ft^INT : PRINT " (BETHE 

EN AND 6) ";: INPUT N 
260 F N > 6 OR N < THEN FWNT 

: PRINT : PRINT : print : goto 

210 
270 IF N = THEN C = IMT (6 i 
RND (2) + 1):A(R,C) = - i: 
GOTO HO 

280 c = n:a(r,c) = - i: 

290 GOTO 190 

300 REM CWfUTER'S GO 

310 IF R = 5 THEN CG = CG + i: GOTO 

760 
320 IF (C - INT <C / 2) I 2) = 

THEN 390 
330 REM Mot RIGHT 

310 if a(r,c + 1) = then c = c 
+ i:a(r,c) = - 1: goto ho 



350 IFR<1THENJ= INT(3i 
( RND (2))): IF J> 1 THEN R 

= R + i:a(r,c) = - i: goto 

HO 
360 IF A<R,C - 1) = AND C> 1 THEN 

c = c - i:a(r,C) = - i: goto 

HO 

370 R = R + i:a(r,c) = - i: goto 

HO 
380 rem MO^ LER 

390 if a(r,c - 1) = then c = c 
- i:a(r,c) = - 1: goto ho 

100 IF R < 1 THEN J = INT (3 i 
RM) (2)): IF J > 1 THEN R = 

R + i:a(R,c) = - i: goto h 


110 IF A(R,C + 1) = AND C < 6 THEN 

c = c + i:a(r,c) = - i: goto 

HO 
120 R = R + 1:A(R,C) = - 1 
130 REM COMPUTER'S GO PLOTTED 
HO PRINT : PRINT : PRINT : PRINT 
" THE COMPUTE 
R I S": PRINT : PRINT " 
T H I N K I N G"; 
150 FOR T = 1 TO lOOO: MEXT T 
160 GOSUB 870: COLOR= 13: PLOT 6 

I C - l,6iR-3 
170 FOR T = 1 TO lOO: NEXT T: GOTO 

510 
180 REM PLAYER'S GO PLOTTED 
190 GOSUB 870 : CXOR= 13: PLOT 6 
I C - 1,6 I R - 3: FOR T = 
1 TO 200: NEXT T: GOTO 310 
500 REM PLAYER'S GO 
510 PRINT : PRINT : PRINT : PRINT 

IT'S YOUR GO": 
520 PRINT : PRINT "INPUT AN 'L', 

AN 'R' OR A 'D' "} 
530 INPUT G$ 

510 IF G» = "L" W© C> 1 AND A( 
R,C - 1) = THEN C = C - i: 
A(R,C) = - i: GOTO 190 
550 IF G» = "L" WD C = 1 THEN 6 

10 
560 IF G$ = "L" AND A(R,C - 1) = 
- 1 THEN 660 



continued on page 86 
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Computer Aided Drawing and Design^ 



The examples in this article are 
written in Applesoft, but the 
techniques describee] can also be 
used with the Atari and S-80 (see 
below). 
by Joan Truckenbrod 



This is a continuation of a 
column that started in May in the 
Apple edition of SoftSide. Joan 
teaches about computer-aided 
design in the Art Department at 
Northern Illinois University, using 
a set of Apple computers. For 
those of you with Atari computers 
the differences in the programs she 
uses are minor. For those of you 
with TRS-80's, see James Garon's 
article about simulating HPLOT- 
TO and DRAWTO elsewhere in 
this issue. 

In the sample program, Hues 10 
to 60 tell the computer that there 
are 4 points, which are read as 
X(l), Y(l), X(2), Y(2), etc. The 
points in the triangle are (100,60), 
(130,120), and (70,120). The first 
one repeats at the end to close the 
figure. The program will simply 
connect point 1 to point 2, point 2 
to point 3, and point 3 to point 4. 
For the Atari, line 40 has to be 
changed to: 

40 READ X,Y:X(J)= X:Y(J) = Y 
since a READ statement cannot be 
used with array variables. 

Line 100 sets the high resolution 
mode on the Apple, clears the 
screen to black, and HCOLOR = 7 
sets the drawing color to white. 
Equivalently, the Atari would use: 
100 GRAPHICS 8:SETCOLOR 
1,0,14:SETCOLOR 2,0,0: 
COLORl 

The only other variations are 
with the HPLOT command. In 
Hne 180 change the word HPLOT 
to PLOT, and in line 220 change 
HPLOT TO to DRAWTO. -Ed 



SCALING TECHNIQUES 

The size of figures created with 
the aid of a computer can be 
changed by various methods to 
develop dynamic visual effects. 
Scaling operations play an essential 
role in the process of creating 
compositions or animated 
sequences. Used in combination 
with translations (see SoftSide: 
Apple July 1980), rotations, and 



transformation, scaling operations 
facilitate the design of complex 
pictures or figures. There are two 
significant visual effects that can 
be created by utilizing scaling 
procedures. Illusions of depth in 
three-dimensional space can be 
created by sequentially changing 
the size of an object from large to 
small or small to large, and rapidly 
drawing each new figure. Each 
figure can be erased prior to 
drawing the next size figure, or left 
on the screen to create a path. As 
the figure is enlarged from a small 
form, it appears as if it is emerging 
from distant space towards the 
viewer. Also, in an animated 
sequence, a large figure can be 
scaled down so that it appears to 
move back in space and disappear. 
Scaling techniques can also be used 
to bring about the effect that an 
object or figure is being stretched 
out, pulled out, squeezed, or 
compressed by proportionally 
scaling the X and/or Y 
coordinates. 

SCALING PROCEDURES 

Scaling operations cause an 
increase or reduction in the size of 
a figure. These operations are 
implemented by multiplying all of 
the X and/or y coordinates 
defining a figure by a value called 
a scaling factor. A figure can be 
enlarged by multiplying all of these 
coordinates by a number greater 
than one. For example, using a 
value of two for the scaling factor 
will increase the figure to twice its 
original size. A scaling factor of 
four will increase its size to four 
times the original size. Decimal 
numbers such as 1.5 or 2.3 can 
also be used as scaling factors. 
Reduction of a figure requires a 
scaling factor between zero and 
one. A scaling factor of one-half 
will reduce the image to half its 
original size, one-third to one third 
of its original size, and so on. 
Curved figures will become less 
smooth the more they are 
enlarged. The closer the points are 
in defining a curve, the smoother 
the curve appears. As the distance 
between these points is increased, 
the curve becomes less smooth. 
Curved figures benefit from being 
reduced in size as any curved 
portions of the shape are more 



refined in smaller scale. In the 
process of enlarging a form, 
continually check the x and y 
values to make sure they do not 
exceed the graphic limits of the 
system. 

The use of multiplication in the 
scaling process poses a problem 
that requires an additional step for 
successfully changing the size of a 
figure. In the scaling operation, 
multiplying the x and y coordinates 
by the scaling factor also changes 
the location of these figures on the 
screen. In order to maintain the 
original position of the figure on 
the screen, an expression using a 
central point of the figure must be 
included in the procedure. The x 
coordinate of a center point of the 
figure can be calculated by 
averaging the smallest x value in 
the figure and the largest x value. 
This is repeated for the y 
coordinates. The following 
expressions will be used to 
calculate the x and y coordinates 
of the center point of the figure: 
XC= (largest x value + smallest x 
value)/2 

YC = (largest y value + smallest y 
value)/2 

These values must be correctly 
calculated in order to have the 
scaled figure in the same location 
as the original figure. The 
subroutine included in lines 300 to 
390 of the program at the end of 
this article will do this calculation. 
ENLARGING OR REDUCING 
THE SIZE OF A FIGURE 
Variables: 

S is the scaling factor 

XC is the x coordinate of the 
center point of the figure 

YC is the y coordinate of the 
center point 

NP is the number of points used 
to define the figure 
SCALING FORMULA: 

NX = (X(J)-XC)*S-hXC 

NY = (Y(J)-YC)*S+YC 

150 REM move the cursor to 
the first point in the 
figure 
155 REM scale the first pair 

of coordinates 
160 NX = (X(1)-XC*S-I-XC 
170 NY = (Y(1)-YC*S + YC 
180 HPLOT NX, NY 
190 FOR J = 2 TO NP 

continued on page S^ yj 



BUGS, WORMS and 
Other UNDESIRABLES 



by Kay Pasa 



In the program DRAW POKER 
in the April 1980 S-80 SoftSide, 
there should be no space between 
TAB and (20) in line 1070 (page 
61). A "BS" or "Bad Subscript" 
error will result from including the 
space. (Level II stores the left 
parentheses along with the word; 
thus "TAB("must not include a 
space.) 
August H. Steiner 

LOST DUTCHMAN'S GOLD, 
in the July 1980 S-80 SoftSide has 
a couple of errors: on page 63, 
Line 1345 makes no sense as 
written. The author probably 
meant: 1345 IF N(4)=""THEN 1050 
(with two quotes.) On page 64, line 
1570 ends with a quote. While this 
does not affect the meaning of the 
line, it should be removed. 
Bryan Elliot 

There are reports that the ROM 
test included in TRSDOS 2.3 does 
not work with the new 2-chip 
ROM from Radio Shack. Your 
ROM is fine, but will fail the test. 
Kay 

In issue No. 9 (volume 2) 1980 
S-80 SoftSide, there is an error in 
the return POKE address to enable 
LIST after disable. Instead of 
"POKE 16836,201", it should read 
"POKE 16863,201" (You should 
have seen me trying to recover 
THAT program!) 

Also, in the June issue of 
PROG-80, the Z-80 disassembler 
LPRINT routine needed a simple 
LPRINT statement added to the 
end of line 62 to keep it from 
missing data lines as they were 
being printed out. I have a line 
printer II, so this may be different 
for others. 
A.J. Wright 



Wandering Along ^ ^ 

PATHWAYS THROUGH 



THE ROM 



by Robert F. Nicholas 
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WA N BERING is an S-80 article. 

I've always wanted to figure out 
how my TRS-80 stored a program 
in memory. Just how does it find 
everything in RAM (Random 
Access Memory) when it needs it? 
Where does a BASIC program 
start? How does the computer 
know when you've run out of 
room? And how can it tell where 
one line ends and the next line 
begins? 

Well, I found the answers to 
these questions and a lot of others 
in "Pathways Through the ROM", 
recently released by SoftSide 
Publications (6 South Street, 
Milford, New Hampshire 03055). 
The book sells for $19.95 and is 
well worth it since it combines: 

1 - "The TRS-80 Disassembled 
Handbook" by Robert M. 
Richardson. 

2 - "Supermap" by Roger Fuller. 

3 -a HEX-MEM monitor 
program by John T. Phillipp. 

4. the Z-80 Disassembler 
program by George Blank. 

5 - a DOS map of TRSDOS and 
NEWDOS by John Hartford. 

6 -and a WD 1 771 Controller 
Specification Sheet (for all you 
hardware buffs). 

The first two are also published 
as individual books and have been 
on the market for about a year 
now. The monitor and 
disassembler programs appeared in 
PROG/80 magazine. Purchased 
separately, everything in this book 
would cost over $40! 

STUMBLING ALONG IN THE 
DARK: 

One thing which is rather 
entertaining to do is to look 
through both ROM and RAM and 
see just what's there. This can be 
done with a variety of tools 
including various monitors and 
debugging programs. If you have a 
disk system, experiment with 
DEBUG. Or, you might want to 
try using my program 
"PEEKMEM" (see figure I). 

Just type the program into your 
computer. There is no need to 
preserve memory size. The 



program will run m any TRS-80 
with Level II BASIC from I6K to 
48K, with or without disks. (We'll 
explain how all of this works in the 
second program in this article.) 

You will be asked to enter the 
ROM/ RAM starting number. 
Beginning from that location, the 
program will continue looking 
through all the memory you have, 
showing what is located there. If it 
is 'unprintable' (something other 
than a single keyboard character), 
that byte will be shown as a 
period. 

Some of the highlights of 
Microsoft's ROM are the memory 
size message (around 250), 
BASIC'S reserved word list (about 
5700), assorted small messages 
(12250). All your BASIC programs 
will start after 17100 (for Level II 
BASIC, try 26800 if using a disk 
system). Experiment with 
"PEEKMEM"for awhile, and see 
what you can discover. 

Once you reach the section 
where BASIC has stored 
"PEEKMEM" itself, you will notice 
several unusual things. For one, 
the line numbers don't appear. And 
words such as REM, FOR, NEXT, 
PEEK, PRINT, IF, THEN, END, 
GOTO, INPUT, CHR$ do not 
show up either. Where did they go? 
Surely they didn't just disappear? 
After all, when we list the 
program, they're still in the same 
place. So what happened to them? 

Nothing! The problem is that 
those are among the reserved 
words you saw back at 5700 ROM. 
BASIC stores those words as one 
byte. And we can't show the word 
'PRINT', which uses five bytes on 
the screen, in a one-byte position. 
These were the 'unprintable' bytes 
referred to earlier. So how do we 
go about recovering that 
information, i.e., how do we show 
'PRINT' rather than a period? 

GETTING STARTED: 

One fairly easy method is shown 
in the program "LIST" (see figure 
2). In lines 30230 to 30280 we 
created a string array, B$(Z), 

continued on page 76 



NEW PRODUCT 



YOU CAN'T WORK HARDER, 
SO WORK SMARTER 

This program is important to 
you. We at Micro Lab have 
tested them all. "THE DATA 
FACTORY" by William 
Passauer, is the most powerful 
data base system yet 
developed. It will provide instant 
accessibility to your records 
and files which you can then, 
rearrange in new combinations 
to give you information in 
seconds to make quick and ac- 
curate decisions. 

OUR GUARANTEE 

THIS PROGRAM WILL WOF^K. 
Micro Lab chooses to represent 
a very select group of profes- 
sional programmers that meet 
our high standards for quality. 
Countless hours have been 
spent in our labs to insure these 
claims to you, and we back them 
with a contract to your dealer. 
Your program can also be up- 
dated if any new changes to im- 
prove this program are made. 

MOST ADVANCED SYSTEM 

The latest breakthroughs in a 
data base system have been in- 
corporated into Bill Passauer's 
program. The unique new 
feature that sets it apart from all 
others is its complete 
modifiability. You may rear- 
range your data, removing part 
of it from the original disk, and 
form a new data base without 
reentering the data again. Add, 
delete, replace, or rearrange and 
compare fields or data at any 
time. Do an incredible 20 level 
search. 

The program has no limitation to 
the amount of fields you can 
have within the limits of your 
computer. Your field lengths 
can have a maximum of 239 
characters for each field and 
you can enter ANY CHARACTER 
as data (commas, quotation 
marks, etc.). 




EASILY LEARNED 

Any one can use it. The program 
prompts you as it runs. The easy 
to follow manual leads you 
through the set up of your data 
base and all the features. "The 
Data Factory" is organized in 
nine program modules. Only the 
module being used is loaded in- 
to memory to manipulate data, 
rather than the entire program. 
This saves memory for 
manipulating data rather than 
for program storage. There are 
so many other "common sense" 
features that set it apart from all 
others. 

A UNIVERSAL SYSTEM 

You may use "THE DATA FAC- 
TORY" at home or at work. Set 
up: Inventories, Mailing Lists (a 
printer is needed for mailing 
labels); Sales records; Accounts 
payable or receivable; Budgets; 
Library, recipe, or phone direc- 
tories; Appointment calendar; 
Notices of subscriptions, 
license or warranty dates; Work- 
ing or shopping lists, and many 
other applications that you will 
discover. All of the above can be 
accomplished from this one 
disk oriented program. No need 
to have separate costly pro- 
grams for each purpose. With all 
the, data on a disk, you can 
manipulate the information 
more easily and efficiently.Find 
any record using the record 
number, the data entered or any 
variation of the data in your data 
base. The from/to feature 
selects records by dates or 
amounts. 



THE 

DATA 

FACTORY 



REQUIREMENTS 

"The Data Factory" is presently 
being offered in APPLESOFT 
but will be available in other 
forms of basic shortly. Check 
with your dealer for other soft- 
ware varieties currently being 
handled. You will need 48k and 
Applesoft in ROM. "The Data 
Factory" is as powerful with one 
disk drive as with two. You do 
not lose any of its capabilities 
using only one disk drive. A 
printer is optional. 

INSURANCE POLICY 

Micro Lab is instituting a revolu- 
tionary new policy for the public: 
Micro Lab Disk Insurance. 

You can feel secure. Two iden- 
tical diskettes of the "The Data 
Factory" program will be includ- 
ed with the original purchaser's 
package. If you make a mistake 
and accidentally blow a disk, 
there is no time or money lost. 

AVAILABLE NOW 

"The Data Factory" is being of- 
fered nationally for the first 
time. It has been marketed and 
tested on a local level and has 
been received with a most en- 
thusiastic response from both 
dealers and users. 

"The Data Factory" should be at 
your local Apple dealer now at 
an introductory price of $100.00. 
Stop in to see our demo disk. 

TO ORDER 
TOLL FREE: 
1-800-258-1790 

(In NH call 673-5144) 
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The Stereo Generator 



J 



THE STEREO GENERA TOR is 
written for an Apple with 
Applesoft and requires 16 K of 
memory. It is printed here courtesy 
of Dandelion Micro Products, who 
sell a variety of music and graphic 
software for the Apple as well as 
the Quad Tracks Interface, an 
inexpensive way to expand your 
Apple to 4 voices in stereo. Their 
address is P.O. Box 615, Mt. 
Vernon, IL 62864. 

The serious computer music lover 
will probably equip his Apple with 
a D/A converter, speaker hookup, 
and procure the necessary software 
and/ or additional hardware to 
build his music system. The less 
serious music enthusiast doesn't 
really care about all that - but he 
may want his Apple to perform 
more complex music or sound 
effects than he can achieve through 
the single (on-board) Apple 
speaker. With The Stereo 
Generator' program, the Apple 
owner simply plugs a speaker into 
the cassette recorder of his 
computer. This is all he needs to 
do to create a mini-music system! 
'The Stereo Generator' program 
will therefore serve the needs of the 
'average' Apple owner for playing 
computer music (and at the same 
time develop his interests toward 
the more complex music systems). 

'The Stereo Generator' allows 
the user to program two voice 
music (two note chords). When the 
music is played, the computer 
produces special effects on the 
programmed music by computing a 
harmonic wave form. The user, of 
course, has a choice in selecting the 
final forms(s) of the programmed 
music. 

Theory - 'The Stereo Generator' 
uses a simple digital timing loop to 
compute a sound frequency which 
is made more complex (especially 
in the lower frequency range) by 
using a second timing loop. The 
second timer is a mathematical 
function of the first. The process is 
performed for each speaker. As a 
result four timing loops are used. 
The final wave form can be 
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computed and programmed by the 
user. 

Operation - To use the Stereo 
Generator it is necessary to connect 
a second speaker through the 
cassette recorder. 
CONNECTING THE SPEAKER: 

1. Unplug computer from cassette 
recorder at monitor jack, but leave 
computer connected to cassette at 
the mic/aux jack. 

2. Connect any eight ohm speaker 
to the cassette recorder monitor 
jack (use RCA phono jack to 
miniature plug adapter to connect a 
regular stereo speaker, etc.). 

3. To put the speaker into 
operation, place the cassette 
recorder in 'record' mode. Now the 
Stereo Generator is ready to use. 

As an alternative to connecting a 
speaker you may use the earphone 
supplied with your cassette 
recorder. 

The user may turn off the 
overtone sounds or either speaker 
as desired. The following pokes are 
useful for setting the various 
speaker modes: 



and develop his program starting 
with some line numbered above 50. 
When the user's program is 
completed the program is ready to 
run or save. (Also, the user's 
program must avoid machine 
language locations $6-$9, $19-$ IF 
and $300-S35E and the use of the 
variable names in the prefix to 
keep the music program intact). 
Programming Chords: Music notes 
are C, D, E, F, G, A, B. Sharps 
are CS, DS, etc. Octave scales are 
SI, S2, S3, S4, and S5. (SI is the 
lowest scale and S5 is the highest 
pitched octave). 

Notes are programmed first, then 
'/', followed by the scale. For 
example: C/S2 would be the C 
note of the second octave. 

Duration of notes and rests 
(Moderate) are WH (whole note or 
rest), TH (three quarter), HA (half 
note), QU (quarter note). El 
(eighth note), SI (sixteenth note) 
etc. (based on 100 beats per 
minute). 



Sound on 

Sound off 

Overtone on . . 
Overtone off . . 


Apple Speaker 
..Poke 801, 48... 
..Poke 801,0 


Cassette Speaker 

Poke 817, 32 

Poke 817,0 


..Poke 809, 48... 
..Poke 809,0.... 


Poke 827, 32 

Poke 827, 



As stated, the Stereo Generator 
is already programmed to play two 
note chord music with overtones 
for both speakers set to 'on'. There 
is no need to turn anything 'on' or 
'off when first running the 
program. 
PROGRAMMING MUSIC: 

The Prefix: To create music, The 
Stereo Generator program contains 
lines to 50 which can be used as 
a prefix to user programs. The 
lines contain the machine language 
pokes and note values for the 
music scale. Before programming 
music notes the user will wish to 
include these lines as a prefix to his 
program. 

First load the Stereo Generator 
program, next delete lines 100-700. 
After this the user may go ahead 



Program music lines using the 
following format: 

1. Select first note of chord equal 
to N. 

2. Select second note of chord 
equal to NN. 

3. Select duration of chord equal 
toT, 

4. Gosub 20 to play chord. 
For example: 

100 N=C/S3: NN=A/S2: 

T=HALF: GOSUB 20 

In line 100 the two notes of the 

chord are C of the third octave and 

A of the second octave played for 

V2 count duration. 

110 N = FS/S4:NN = GS/ S3: 

T= WHOLE: GOSUB 20 



In line 1 10 the two notes of the 
chord are F sharp of the fourth 
octave and G sharp of the third 
octave played for a whole note 
duration. 

Always end each chord with 
GOSUB 20 before programming 
the next notes. 

If a single note is desired rather 
than a chord, make both notes N 
and NN the same. 
120 N= A;S2: NN= A/S2: 
T= EIGHTH: GOSUB 20 
Line 120 would play the A note of 
the second octave as an eighth 
note. 

To program rests GOSUB 30 
instead of 20. First select the 
duration then perform the GOSUB 
30. 

130 T= HALF: GOSUB 30 (would 
be a half rest), etc. 
The T value for duration may also 
be set to any numerical value 
between I and 250. For example, 
setting T to 53 produces 64 
quarter notes per minute. 

Overtones (Tl and T2) are preset 
as follows: Tl= H2 and T2 = H2. 
These may be changed to HI or 
reset throughout the users program 
as desired such as Tl = H I : T2 = HI 
or TI = HI, etc. In addition Tl and 
T2 need not be set to harmonic 
variables (I and H2), but may be 
set to any decimal number between 
.01 and .99 to achieve special 
sound effects. In addition, it is 
possible to move Tl from speaker 
one to speaker two with a Poke 
809, 32, etc. However no resetting 
of speakers or overtones is 
necessary when first using the 
Stereo Generator or user programs 
as they are preset in the prefix as 
described above. 

In summary, to use the Stereo 
Generator: load the program, 
delete lines 100-700, create user 
program starting on a line number 
larger than 50, finally run or save 
program. 

The user will wish to use the 
music demonstration which comes 
with the program as an indicator 
for setting the values TI and T2 
within his own program. After a 
flnal decision is made, the iHser 
may wish to simplify subroutine 20 
to increase speed of execution. 



1 TEXT ; HOHE 

Machine locations for msic rates 
gerreration. 



5 FOR I = 770 TO 896; READ J! FttCE 

i,j:z = z + j: next 

10 DATA 202,2^0, 27, 136, 210, 

32, 198, 31,210 , 36,198,30, 
210,42,198, 26,210,3,76,2,3, 
198,25,208,231,76,81,3,231,2 
31 

11 DATA 173,10,192,166,6,76,5, 
3,173,18,192,161,7 ,76,8,3,1 
73,32,192,165,3,133,31,76,12 
,3,173,32,192,165,9,133 ,30, 
76,16,3,162,12,202,208, 253 

12 DATA 198,26,208,217,198,25,2 

08,213, 165,29,210,9,133,25, 
169,0,133,29,76,2,3,96 

Lines 13-15 contain music notes, 
octave definition, and initial 
variables for music overtone 
definition. 

13 C = 231ICS = 221:D = 209:DS = 

197:E = 186:F = 176;FS = 166 

:g = i56:gs = ii8;a = 139;as 

= 132:B = 121 

11 SI = i:s2 = 2:s3 - i:si = s:s5 
= 16;ni = 6:n2 = 7:n3 - 8:n 

1 - "ITD = 25 

15 DATA 231, 165, 6, 166, 27, 7 

1, 202, 208, 252, 170, 165, 
8, 161, 27, 71, 136, 208, 25 

2, 133, 31, 165, 7, 168, 165 
, 9, 133, 30, 165, 25, 133, 
29, 76, 2, 3 

16 REST = 336:h2 = .ooi:hi = .02: 

Tl = H2:T2 = H2;TEMP0 - 33! GOSUE: 
13: GOSLE: 19; GOTO 50 

18 Qu = tempo:ha = 2 X QU:WH = 1 X 

qu:ei = QU / 2:si = qu / i;p 

LAY = 861 ; RETURN 

Set tenpo and GOSUE 18 to change 
ni.isic speed in prograM. Subroutine 
20 May be siMplified for speed of 
execution in the user's w-tsic 
prograM if ijesired. 

19 VOICE = 27: POKE VOICE, 2: RETURN 

: F£M POKE VOICE, NO. 1-8 TO 
CHANGE VOICE FACTOR 

20 POKT N1,N: POKE N2,N 4 (Tl x 

N): POKE n3,nn: poke N1,NN + 
(T2 X NN): poke tdj: call p 

LAY 

21 RETURN 

30 POKE TD,T: CALL REST 

31 RETURN 

50 REM PRtFIX LINES 0-50 



Introdijction of prograw. 
100 INVERSE 

105 T = 3JT1 = .01JT2 = HI 

110 VIAE; 10 : HTAB lO: PRDfT "THE 

STEREO GENERATOR" 
120 PRINT 

110 NORMAL : HTAB 11 : F-RINT "COP 
YRIGHT 1980 BY" 

115 FlilNT 

150 HTAB 8: PRINT "DANDELION MIC 

RO PRODUCTS" 
160 GOSUB 190:T1 = O: GOSlii 190 : 

Tl = .02: GOSl*; 190:T1 = .03 

: GOSUE: 190:T1 = .oi: gosue; 

19o:ti = o;t = io:lt = i; gosub 

190 
170 FOF: I = 1 TO lOOO: NEXT i: HOME 
: GOTO 600 

Scale. 

190 N = C / S2:NN = A / si; GOSUB 

20 
205 N = D / S2:NN = B / Si: GOSUB 

20 
210 N = E / S2;NN = E / S2; GOSUB 

20 
215 N = F / S2;NN = D / S2: GOSUB 

20 
220 N = G / Sl'Mi. = E / S2: GOSUE; 

20 
225 N = A / S2:NN = F / S2: GOSUE: 

20 

230 N = B / S2:nN = G / S2: GOSUB 

20 

231 IF LT = 1 THEN T = 25 

235 N = C / S3:NN = A / S2: GOSUB 

20 
210 RETUR'N 

Lines 100-158 contain Barcarolle 
Mijsic dCMO. 

100 N = A / S3:NN = FS / S3:T = E 

i: GOSUE; 20 
102 GOSUB 30 

101 N = B / S3:NN = E / S3: GOSUB 

20 

106 N = B / s3:nn = FS / S3: cosue 

20 
108 GOSUE; 30 

110 N = A / S3:NN = a / S3: GOSIB 

20 
112 N = A / S3:NN = FS / S3: GOSUB 
20 

111 GOSUB 30 

116 N = B / S3:NN = B / S3: GOSUB 

20 
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KEY 

1 - Integer BASIC 

M - Machine Language 

(Apple II or Apple 11+) 
A - App esoft 
ROM - Apple II Plus 

or Applesoft card only 


\ 




The 
Ppple Stood 

TO ORDER 

^f\ "^c^ TOLL FREE (orders only) 

fmf^ ^-800-25Q-^790 

tiX (In NH call 673-5144) 


^ 


V* Wf\ X^m*"^'' C[^B 


Your Apple M* software market from The Software Exchange 



ADVENTURELAND 

Adventure International 

Cassette/24K/M $14.95 

ADVENTURE SAMPLER 

Adventure International 
Cassette/24K/M $6.95 

AIR TRAFFIC CONTROLLER 

Sensational Software 
Cassette/1 6K/M $9.95 

AMBUSH 

disl< 48K/A ROM $59.95 

ANDROID NIM 

Disk/24K/A ROM $17.95 

APPEN I TEXT EDITOR 

Muse 

Cassette/1 6K/I $17.95 

APPILOT EDU-DISK 

Muse 

Disk/32K/I $49.95 

APPLE 21 

Softape 

Cassette/24K/I $15.95 

APPLELISTNER 

Softape 

Cassette/1 6K/I $19.95 

APPLETALKER 

Softape 

Cassette/1 6K/I $15.95 

ASTEROIDS IN SPACE 

disk $19.95 

BASEBALL 

Muse 

Cassette/16K/A ROM . $14.95 

BEST OF MUSE 

Disk/16K/I $39.95 

BISMARCK 

Disk 48K/A ROM $59.95 

BRIDGE CHALLENGER 

Personal Software 
Cassette/1 6K/M $14.95 

CCA DATA BASE MANAGER 

(Works in conjunction with 
Vislcalc) 

Personal Software 
Disk/32K/A $99.50 + $2 

COMPU-READ 

Edu-ware 

Disk/48K/A $24.95 

COUNT ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 
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DAN'S DISK UTILITIES 

Periph. Unl. 

Disk/16K/I $39.95 

DATA FACTORY 

Disk/48K/A $100.00 

DATE STONES OF RYN 

Tape 32K/A ROM/48K/A 

$14.95 

Disk/48K/A ROM $19.95 

DR. MEMORY 

Muse 

Disk/32K/I $49.95 

DUNGEON CAMPAIGN 

Synergistic 

Cassefte/16K/I $14.95 

Disk/32K/I $17.50 

ELECTRIC CRAYON 

Muse 

Cassette/1 6K/M $17.95 

ENGINEERING MATH TAPE I 

Hayden 

Cassette/24K A/16K A 

ROM $14.95 

ESCAPE 

Muse 

Cassette/16K/I $12.95 

FASTGAMMON 

Quality Software 

Cassette/1 6K/M $19.95 

FORM LETTER 

Periph. Unl. 

Disk/48K/A ROM $24.95 

FORTE 

Softape 

Cassette/1 6K/I $19.95 

GENERAL MATH TAPE I 

Hayden 

Cassette/24K A/16K A 

ROM $14.95 

GHOST TOWN ADVENTURE 

Adventure International 
Tape/24K/M $14.95 

GLOBAL WAR 

Muse 

Tape/32K/A ROM .... $17.95 

Disk/48K/A ROM $24.95 

HIGHER GRAPHICS 

Synergistic 

Disk/32K/I $24.95 

HIGHER TEXT 

Synergistic Software 
Disk/24K/M $35.00 



HI-RES MYSTERY HOUSE 

On Line Systems 
Disk/48K/M $24.95 

INTERLUDE 

Cassette 16K/I $16.95 

Disk/32K/I $19.95 

INVASION OF ORION 

Tape 32K/A ROM/48KA 

$19 95 
Disk 48k7A Rdf(^' '.'.'.'.'. $24!95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $29.95 

MAILING LIST 

Periph. Unl. 

Disk/48K/M $39.95 

MAILING LIST DATABASE 

Synergistic 

Disk/48K/A $34.50 

MAZE GAME 

Muse 

Cassette/1 6K/I $12.95 

MICROSOFT ADVENTURE 

Microsoft 

Disk 32K/M $29.95 

MISSION IMPOSSIBLE 
ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

MONTY PLAYS MONOPOLY 

Ritan 

Cassette/1 6K/M $24.95 

Disk/32K/M $27.95 

MORLOC'S TOWER 

Tape/32K/A ROM/48K A 

$14.95 

Disk/48K/A ROM $19.95 

MUSIC BOX 

Muse 

Cassette/1 6K/M $12.95 

MYSTERY FUN HOUSE 
ADVENTURE 

Adventure International 
Cassette/24K/M $14.96 

PIRATES COVE ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

PRE SCHOOL IQ 

Cassette/1 6K/I $14.95 

PROGRAM LINE EDITOR 

Synergistic Software 
Disk/24K/M $40.00 



PYRAMID OF DOOM 
ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

RESCUE AT RIGEL 

Tape/32K A ROM/48K 

A $19 95 

Dis'k'48k/A ROM !!!!! $24^95 

SARGON II 

Hayden 

Cassette/24K/M $29.95 

Disk $34.95 

STARFLEET OF ORION 

Tape 16K/I $19.95 

Disk 32K/I $24.95 

STEP BY STEP 

Cassette/1 6K/A $14.95 

STRANGE ODYSSEY 
ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

SUPER INVASION 

Sensational Software 
Tape32K/M $19.95 

SUPER-TEXT 

Muse 

Disk/48K/A ROM $99.95 

TEMPLE OF APSHAI 

Tape 32K/A ROM/48K/A 

$24.95 

Disk 48K/A ROM $29.95 

TEXT EDITOR 

Periph Unl. 

Disk/48K/A ROM $64.95 



THREE-D 

MP Software 

Disk/48K/A ROM $29.95 

THREE MILE ISLAND 

Muse 

Disk/48K/I $39.95 

U-DRAW I 

Muse 

Cassette/1 6K/M $17.95 

U-DRAW II 

Muse 

Disk/32K/M $39.95 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32 K/ A ROM . $12.95 

VISICALC 

Personal Software 
Disk/32K/A .... $150.00 + $2 

VOODOO CASTLE 
ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

WILDERNESS CAMPAIGN 

Synergistic 

Cassette/48K/I $17.50 

Disk/48K/I $19.95 

WILDERNESS & DUNGEON 
CAMPAIGNS 

Disk/48K/I $32.50 

WINDFALL 

Edu-Ware 

Tape/32K/A $14.95 

Disk/32K/A $19.95 

Z-80 SOFTCARD 

$349.00 



BOOKS 

BASIC HANDBOOK 

by David Lien $14.95 + $1 

6502 GOURMET GUIDE & 
COOK BOOK 

$12.95 + $1 

INTRODUCTION TO LOW 
RESOLUTION .. $11.95 + $1 

LITTLE BOOK OF BASIC 
STYLE 

by John Nevison . . $5.95 + $1 




IHPIRDSI 

We buy and sell 
used computers 
and peripherals 
fortheTRS-80; 

apple; atari; 

and pet: 

(601)673-514$ 




*TRS-80, Apple, Atari, and Pet are trademarks of Tandy, Apple Computer, Warner Communications and Commodore, respectively. 
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CONCENTRATION II 



Last month we presented a nifty 
version of Concentration for the 
Apple. Here is a version for the 
Level II 16 K {and up) S-80 
computer. 

by Randy Hawkins 

The game of Concentration has 
been around for many years — first 
as a television game show, and 
then as a popular board game 
which has been enjoyed by families 
long after the TV show has 
disappeared. Young children play a 
simple version by laying cards face 
down and trying to find two that 
match. There was even a simple 
version programmed in BASIC 
appearing in a very early edition of 
SoftSide magazine by a generally 
unknown author by the name of 
Lance Micklus. The version 
presented here combines all the 
features of these earlier efforts and 
adds some new ones - including an 
attractive graphics package and 
elements of skill and strategy not 
found in others. 

The game of Concentration is 
really very simple. In this version, 
seventeen pairs of prizes and one 
"wild card" are randomly placed 
on a 5 by 7 game board. On each 
player's turn, two squares are 
chosen. If the prizes revealed 
match or one of the squares holds 
a "wild card," the player receives 
that prize. In addition, two pieces 
of a secret puzzle are put in the 
prize's place and the player is given 
the chance to identify the puzzle. 
In this game, the puzzle consists of 
a five-digit number also chosen at 
random before the game. Each 
digit is represented by a tall, thin 
picture of the numerals zero 
through nine. Should the player 
guess the solution to the puzzle, he 
wins the game and retains the 
prizes he has collected in that 
round. If he misses, he gets another 
turn and tries to select two more 
matching prizes. 

As you will see, the numerals 
used in the puzzle are squared-off 
representations of the numbers — 
not unlike the numbers as 
displayed by a calculator. This 
method was chosen for a specific 
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reason. In this squared-off form, 
the numbers all look very much 
alike. In fact, for several numbers 
even one missing piece can make it 
impossible to positively identify the 
numeral. Is that number on the 
edge an eight or a zero? Is that a 
one or a seven? Could that be a 
five or a six? As a result, the game 
is a little bit more difficult than 
you might expect. Not only does it 
take a lot of matches before the 
puzzle becomes clear, but also the 
location of the square you are 
trying to match is very important. 
That piece in the corner is just the 
one you need to figure out if it is a 
one or a seven. 

One other possibility might 
emerge. You have made a lot of 
matches and are fairly confident 
that you know the secret number. 
But you also know that there are a 
few big prizes waiting on the 
board. Do you identify the puzzle 
solution now and take your 
winnings and run or do you take a 
chance and try to add a few more 
prizes to your collection? 
Remember, one slip-up and your 
opponent will step in and leave you 
empty-handed! 

A real challenge is to find a 
willing opponent and settle in for a 
marathon Concentration match. 
The program will keep setting up 
new games as long as you are 
willing and also keep a running 
total of your prize winnings. After 
four or five games in a row, you 
will begin to have a hard time 
keeping track of which prize went 
where. Was the sailboat in that 
square in this game or was that the 
game before. . . or the one before 
that? 

The program listing and detailed 
comments follow and should be 
very easy to follow and possibly 
change if you would like to custom 
tailor it to your needs. A couple of 
special notes should be added, 
however. A machine language 
subroutine is used to paint the 
entire screen with a graphics 
character. The character used is 
randomly chosen so that every time 
you play, you will get one of sixty- 
three different board patterns. 



These vary from polka dots to 
horizontal and vertical stripes to 
weaved patterns to solid white. 
Rather than the USR(O) function 
to access this function, the NAME 
command is used. For normal level 
II and disk systems, this command 
is not used. It is used in the 
BASICR mode of disk systems as 
a renumbering command, but this 
version of BASIC is not generally 
used for simple execution of game 
programs. The instructions for 
implementing the NAME 
command are the same for both 
cassette and disk users making it a 
very simple one to use. I have also 
toyed with adding sound effects to 
the program. By using the NAME 
command to paint the screen, the 
USR(O) command is still available 
for you to access your favorite 
sound generation routine. As it is 
stated in some of my favorite 
textbooks, this is left as an exercise 
for the reader. 

The prize list included in the 
DATA statements in line 1015 
through 1040 is only a start. You 
may add as many prizes as you 
wish by following these simple 
rules. The prize name should be 
enclosed in quotes and centered in 
a twelve-character string. For 
example, 1980 CAR is eight 
characters long so adding two 
spaces before and after the string 
yields " 1980 CAR ". Following 
the prize string is the value in 
dollars. The WILD CARD! must 
be the final prize and it must also 
be the only zero value prize. Since 
the prize display uses only whole 
numbers for the dollar values, no 
cents are entered. That is also why 
the CANDY BAR prize is given 
the minimum value of one dollar. 
But considering the rate of 
inflation, by the time you read this 
article, one dollar for a candy bar 
may not be such a ridiculous 
amount after all. In any event, 
good luck and have fun! 



Y$(2) player's name 

A(35) contains a number for each board square identifying the prize 

hidden there. 

T$(35) contains information for each board square identifying the 

picture beneath 

PR(2,I7) player's prize list 

X$ machine language routine storage 

S$ secret number string 

XI, X2, X3 location of X$ for NAME command 

CH ASCII value of graphics character used to create board 

B$ graphics strings to draw pieces of puzzle 

MT(2) money total for each player 

P player number 

NP number of prizes 

W$ player's square selection 

W number of square (1-35) calculated from W$ 

LO print location for square selected 

G$ guess at secret number 

PS name of prize 

M monetary value of prize P$ 



Lines Q-60! Progran initialization 

This sectioTj sets up the variables to be used in the 
progran. Line 5 establishes the two players' rianest 
Line 10 cortairis the Machine larpguaqe routine to fill 
the screen. Lines 20 and 30 locate the assefibly 
ro.itine and iHple«ent the NAME comand. Lines 50 and 
SO 4et up the graphics stririgs used to create the 
9a«e board and draw the puzzle pieces. 

OREM I CONCENTRATION i 

« BY R/WY HAWKINS, » 

X CORPUS CHRISTI, TX i 

5 CL£(«5flO;as:PRINTCHR»(23);" CONCENTRATIO N".'PRINT 
:iNPUT"HHO IS PLAYER *1";Y$(1):INPUT"»« is PLAYER »z";y«(2):dim 
A(35),T$(35),PR(2,17);RAND0M 

10 X$=CHR«(229)+CHR»(33)+CHR«(0)+CHR»(60)+CHR*(51)+af:$(191)+a« 
$(17)+CHR$(l)+€t«*(60)+C«M(l)+CHR*(255)+CHR$(3)+CHR$(237)+CHR*( 
176)+CHRi(225)+CHR*(201) 

20 REST0RE:S$="":Xl=f£EK(VARPTR(X»)+l):X2=fEEK(W«PTR(Xf)+2):X3= 
X2I256+X1 ; X3=X3+65535* ( X3>32767 ) 
30 P0KE16783,XlIP0f(E1678'!,X2;CH=128+RND<63) 
50 A»=STRING»(12,CH):PR(1,0)=0:PR(2,0)=0:R$=STRING»(12,21)+CHR»( 
26):M(1)=STRING$(12,32);N»=STRING$('),CH)+" n "+STRING$(1,CH> 
60 B$(2)=" "+CHR$(191)+STRING*(9,32):B$(3)=STRING$(9,32)+CHR»(1 
91)+" ":B$(1)=" "+CHR«(191)+STRING$(6,32)+CHR$(191)+" "!B$(5) 
=" "+STRING*(8,191)+" "!PQKEX3+5,CH 

Liries 65-85! Opening of gane 

This sectioTr starts the gane in notiori. If the total 
Noney won equals zero (Meaning this is the first 
gane) the players are asked if they would like to see 
the instructions at SLibroutirie 2000. Lines 75 arid 80 
prepare the gawe board. Line 85 writes the riafie of 
the gane vertically down the right harid side of the 
screen. 

65 IFMT(l)+tfr(2)>0THEN75ELSEF'RINT" 

DO YOU NEED TO SEE INSTRtJCTIONS?" 

70 Z»=IM<EY»:iFZ»=""THEN70aSE[FZ»="Y"THEMaSlje2000 

75 cls:name:fori=49to53:printusingn«;chr$(I) ; :fExn:PRiNTei28, ; : 
fori=51to57:printusingn$;chr<(I) ,* :nexti:printusd«n$;chr$(65) ; 
80 FORI=2TO6:PRINT0Ii128, I :f«j=ito5:printusingn$;chr*(55+i»5+j> 

;!NEXTJ,I.*PRINTe60,Cff?»(128)CHR'»(156)Cff!$(H0)CHR«(172);:Gl»="CO 

NC£MTRAnON";G2$=a«»(128)+CHR*(H9)+C«$(33)+CHR«(170) 

85 FORI=lTO13:PRINT06O+Ii64,;:F'RINTUSDCG2»;MIM(Gl$,I,l);:NEXn 

.'PRINT?956,Ctf}$(128);STraNG$(3,131),"PWa)GN ME HHELf I PREPARE T 

HE (;/^";crt?$(30);:pRiNTe896,c«w(H0); 



Lines 90-180! Selection of prizes arid secret riL^iber 
This section chooses which prizes will be 
available, places then ori the board, and selects 
and sets <jp the secret nt-wber puzzle. Lines 90 
arid 95 cotirit the rii.inber of prizes, Nf'. Lires 100 
throijgh 150 choose a five-digit secret nijfiber and 
set vp the inforMatiori used in drawing these digits 
in array T$. Lines 160 thro«jgh 175 select orie player 
to go first, and randoMly choose 17 prizes to be used 
in this gawe. Line 180 juMbles the location of the 
prizes anong the 35 squares. Throughout this sectiori, 
a border is drawn along the bottom of the screen to 
indicate to the players that sonething is going on 
inside the program during the approxinately 10 secorid 
wait. 

90 RESTORE!NP=0!FORI=lTO10!READZ$!NEXTI 

95 NF=NP+1:REAOP«,M!IFM>OT(CN95 

100 FORI=1T05:RESTORE 

no K=RND(10):FORJ=1TOK!R£ADZ$!NEXTJ 

120 DATA015414W111115, 113333333333333,215133335222225 

130 DATA315133335333315,4H'HW5333333,515222225333315 

110 DATA6151222251W15,715133333333333,8151W151W15,91511W 

5333315 

150 S»=S»+LEFT$(Z$,1):FORJ=OT06!T$(I+Ji5)=MIM(Z»,Ji2+2,2):F«M 

CHR$(110);!NEXTJ,I 

160 P=RND(2)!A(1)4I>!F0RI=2T018 

170 J=WC(NP-l)!A(I)=J!FOfiK=lTOI-i:iFA(I)=A(K)THEN170 

175 >EXTK:A(I+17)=A(I)!PRINTCHR$(110):!NEXn 

180 FORL=1T050!I=RM)(35)!J=RM)(35)!K=A(I)!A(I)=A(J)!A(J)=KJIFINT 

( L/7 ) i7=LTHEfPRINTCH» ( 110 ) ! ! NEXTLELSE(€XTL 

Lines 190-220! First selection 

The player chooses a square and is showri the prize 
hidden beneath. The na«e of the sqi.iare chosen is 
placed in H$ via the INKEY$ cownarid. This is 
translated into a value frwi 1 to 35 in line 220. A 
call is nade to subroi-itine 1000 to print the proper 
prize descriptioTi. 

190 F1£rNTe965,CHR*(31),'Y*(P);", WHAT IS YOUR FIRST CHOICE? "; 

200 lrt=INKEY»:FH»=""THEN200 

210 IFASC(W$)<19ORASC(W«)>90OR(ASC(H$)>57A»ASC{)«)<65)THEN190 

220 PRINTHt; :W=ASC(H$)-55-(H$<"A")i7:iFA(H)=0THEN190ELSEGOSlB10fl 

0:H1=4^!L1=LO 

Lines 230-260! Second selection 

This section accepts the player's second choice and 
functions in the sane fashion as the preceding section. 

230 PRINTe965,CHR«(31)!Y$(P):"., 1#WT IS YOUR SECOND CHOICE? "I 
210 H«=INKEY«!ffH«=""THEN21fl 

250 FASC(W$)<19ORASC(W«)>9flOR(ASC(H*)>57WCASC(H»)<65)THDC30 
260 PRINTW! !W=ASC(H$)-55-(W$<"A")x7!IFA(H)=0ORH=«lTHEN230ELSEGQ 

sueiooo 

Lines 270-300! Check for natch 

The two selections are conpared for a natch and the 
proper action t3k.eri. If the two prize values natch 
or if one of the selections was a wild card. Line 270 
jimps to the followirig section. If they do not natch, 
the squares are replaced and the other player takes 
over at line 190. 

270 ff(A(H)=A(Hl))OR(A(H)=NP)OR(A(Hl)=M>)TICN310 

275 FORn=lTO1000!NEXTTI!H=»H55+(H<10)x7!Hl=Hl+55+(Wl<10)«7 

280 PRIMTeL0,USINGI«;CHR«(H)i!F1?INTR»;A$! 

290 PRINT8Ll,USINGN»;CHR*(Hl);!PRINn»;A$; 

295 IFP=1THENP=2ELSEP=1 

300 GOTO190 continued on page 80 

2} 
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SUPER BA RRICA DE is for an 
8K Atari 400 or Atari 800 with two 
Joysticks. 

by Paul Johnson 

This is one of the simplest of 
computer games, yet at the same 
time, it is one of the most popular. 
It is fast, challenging, and very 
competitive. It is easy to go 
through fifty games in a row 
without wanting to stop. 

Each player has a moving wall. 
The object of the game is to keep 
your wall from crashing into the 



SUPER BARRICADE 



other player's wall, your own wall, 
or the edge of the playing field on 
the screen, before the other player 
crashes. There are many subtle 
strategies for winning. At first, you 
may simply try to block your 
opponent so that he or she has no 
place to go. Another strategy is to 
block off as large a section of the 
screen as possible and move 
around inside it until your 
opponent runs out of space. 

This version differs from 
versions available for other 
computers in two ways; First, 
because it uses joysticks, you have 



eight possible directions of travel 
instead of four, allowing you to 
move horizontally, vertically, or 
diagonally; and second, the 
diagonal lines are not solid. If you 
are skillful or lucky, you can pass 
right through your own or the 
opponent's diagonal line. This adds 
a lot of complexity to the game 
strategy. 

Soldiers, man the barricades! 



1 REM — SUPER BfiRRICADE UERSION 3.1 

BY PAIL F. JOIflSON. MANCHESTER, NH- 4 
/ie/88 

2 GRflPHICS e PRINT "Get reada to plaa SU 
PER BflfiRICflOE!" ? ? 

3 Pl$ equals name of first player 
P2$ equals name of second player 
Q$ equals input 

3 DIM Pl$(ie)iP2«<18),Q«<3) 

4 PRINT "FIRST PLAYER - Enter aour ram" 
■imn PI* 

5 PRINT "SECaC PLAYER - Enter aour na«e 
" iwvr P2$ 

7 ? :? "DO YOU NEED INSTRUCTIONS ";^INPU 
T 0$ 

8 - This line opens the screen as a 
file so that the program can read 
the screen directly. Line 400 does 
the actual reading. 

8 OPEN #1,4,0,"S^" 

9 IF Q*>"" THEN IF Q*<L1)="Y" T»CN GOSU 
B $0K 

18 H=69 U=35 DIM X(n,Y<l)-L(n 
29 REM — SET LP PLAY FIELD — 

30 POKE 82,2 - Sets left border 2 
spaces in for 38 character print 
width so that program will work 
well even on television sets with 
overscan problems. 

3B OMPHICS 5 SETCOLOR e,8,8^SETCOL0R 1, 

3,ie=SETCOL0R 2,18,6 POKE 82,2 

48 PRINT " SUPER BM!RICM£ 



50 POKE 752,1 - Turns off cursor. 
58 POKE 752,1 PRINT ^PRINT P1»,S8,P2*,S1 



100 - Draw playfield. 

188 COLOR 3 PLOT 6,1:DRAWT0 H+5,1 DRAWTO 
Ht5,U DRAWTO 6,U^DRAWT0 6,1 
288 X(e)=7 Y(8)=4 X<l>=H-7 Y(1)=U-5^P=8 
218 L<8>«:L(:i,-«€ 

238 FOR 1=8 TO 1 COLOR I+l ^PLOT X(I>+5,Y 
<IH1 fe<T I 

290 - Read joystick. P is number of 
player. 

298 S=STia«P) 

295 IF S=15 T\€H S=L(P) 

300 - Update position based on 
joystick reading. 

388 ON S GOTO 318,318,318,318,335,325,33 

8,318,345,355,358,318,348,328 

318 IF L(P) TfCN S=L(P) GOTO 388 

315 GOTO 428 

328 Y(P)=Y(P)-1:GOTO 488 

325 X<P)=X<P>+1 Y(P)=Y(P)-1 GOTO 488 

338 X(P>=X< PHI GOTO 488 

335 X(P)=X(P>fl Y(P)=Y(P)+1 GOTO 488 

348 Y(P)=Y( PHI GOTO 488 

345 X(P)=X<P)-1^Y(P)=Y(P>+1 GOTO 488 

358 X(P)=X(P>-1 GOTO 488 

355 X(P)=X<P)-1 Y(P)=Y(P)-1 

400 - Check next square to see if it 
has already been lit up. 
Background color is and falls 
through IF statement. 

488 POSITION X<P>+5,Y(P>fl GET «1,A^IF A 

TlflJ Doa 

405 COLOR P+1 PLOT X<P>+5,Y(PH1 

418 souw e,(Pt2eHe8,e,i 

415 L(P)=S 
428 P=-1«P+1 
448 GOTO 298 
888 REM HIT A UALL 
818 SOIM) 8,8,4,8 

820 - Flashes screen by alternating 
colors 100 times. 



828 FOR 1=1 TO 188 SETCOLOR 4,3,10 

825 SETCOLOR 4,8,8 NEXT I 

838 IF P=e THEN S1=S1+1 

840 IF P=l T1€N S0=S0+1 

850 sate 0,8,0,0 GOTO 20 

9000 REM — DISPLAY T« RULES — 

9010 GRAPHICS POKE 82,1 

9820 POSITION 0,8 

9030 SETCOLOR 1,0,0 SCTCOLOR 2,8,8 

9040 - By alternating between 
normal and reverse video in these 
print statements, you can also 
alternate colors. Note; the Atari 
printer treats inverse video as 
normal text, but you can enhance 
your program by clever use of 
inverse video. 



9040 PRINT 
9860 PRINT 
9860 PRINT 
9870 PRINT 
9875 PRINT 
9088 PRINT 
9890 PRINT 
9100 PRINT 
9110 PRINT 
9120 PRINT 
9138 PRINT 



" SUPER barricade" 

PI*;" IS blue AW" 
"HAS T« LER STICK" 

P2*; " IS red AND" 
"HAS T)£ RIGHT STICK" 

" EACH TIME YOU" 
" HIT A MALL YOUR" 
" OPPONENT SCORES!" 



9180 Graphics 49 - Same as 
Graphics I (20 lines of 20 
characters) except that screen is 
not cleared and split screen is 
overridden for 24 lines of 20 
characters. Adding 16 to graphics 
modes 1 to 8 gives full screen 
graphics instead of split screen and 
adding 32 suppresses the clear 
screen function, normally part of a 
graphics definition. 

9188 GRflPHICS 49 SETCOLOR 8,12,4 SETCOLO 
R 1,7,8 SETCOLOR 2, 11, 11 SETCOLOR 3,3,5: 
SETCOLOR 4,8,0 
9190 FOR T=l TO 4000:NEXT TRETURN 



® 
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TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 





MfiQiC 

from Christopherson 

T 

ANDROID NIM 




The newest version of TRS-80's first 
animated graphics game — Android 
NIM — now with more animation 
and sound! Level II, 16K $14.95 



BEE WARY 

This fast-paced real time action game is a contest 

between a Bee operated by the player and a Spider 

operated by the computer. Machine language 

subroutines.but loads as Level II for easy operation. 

$14.95 

SNAKE EGGS 

Here is a computerized reptilian version of 21 complete 
with arrogant snakes and appropriate sound. Level II 

16K. $14.95 



LIFE TWO 



Two in one: Game of Life, at an astouding 100 

generations a minute, plus Battle of Life with animated 

creatures and sound. Level II 16K. $14.95 




TII«EE (D 

Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 



3-dimensional figures can 
be rotated, shifted, scaled, 
or distorted. Each figure 
can be saved on disk and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on diskette 



TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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DR. LIVINGSTON is an S-80 
program requiring Level II and 
16 K. 

An adventure game 

by Carl & Karen Russell 

Ralph & Becky Fullerton 

Dr. Livingston is again in 
darkest Africa, but no message has 
been received from him for a great 
while. His rescue is the overall 
objective of your adventure. 

To explore the terrain and locate 
Dr. Livingston, you need to enter a 
two-word, verb-noun form of 
command like: 'get book' or 'go 
east'. You may also move by 
direction only: E, W, N, S, U, or 
D. The computer's vocabulary is 
somewhat limited, so if a word is 
not accepted, try a similar word or 
new approach. 

Here are five helpful one-word 
commands: 



DR. LIVINGSTON 



IN SEARCH OF . . . 



HINT - not always available 

LOOK - a description of your 

surroundings 

I - (Inventory) - a list of the objects in 

your possession. 

SCORE - points accumulated and 

number of turns taken 

QUIT - ends game and gives final 

score. 

Every object that you 'get' and 
return to a central location will 
improve your total score. However, 
in the long run, the loss of an 
object may be to your advantage. 

Quicken your journey and 
improve your score. Explore! Be 
persistent! If you obtain the score 
of 215, your adventure will 
automatically end. A bonus may 
then be added, boosting your total 
score up to a possible 250. 

Dr. Livingston's rescue has 
consumed your thoughts for many 
weeks. You have gathered books 
and maps of the area where he was 



last seen. Determined to make a 
rescue attempt, but exhausted from 
your research, you are preparing 
for sleep . . . 

So begins your African 
adventure, but it will take some 
ingenuity to even make it to Africa 
- alive. Can you survive long 
enough to rescue Doctor 
Livingston? Beasts and gems, 
puzzles and quicksand are all 
about. The jungle is ever changing. 
Trails here today are gone 
tomorrow and yet here again the 
next. 

Explore! Be persistent! Your 
African adventure is but a dream 



away 




(I 'COPR. (01980 R/B FIJ1£RT0N:C/K RUSSELL 
50 CLS;PRIKTK36,CHR»(23)"DR. LIVINGSTON 

":RflNDOH:CLEflR120:DeFSTRA-G!DeFINTH-ZJY=l!XG=i:G6="Y(]U DON'T mi 

E n.":G7="N0THING UNUSUAL. "!G8="HITH YOUR PIW SPE/«?" 

100 G3="0ON'T BE SILLY.":G2="Y0U'RE ON YOUR 0HN.":G1="Y0U dXtt) 

Y HAVE n."JR$=" 'nS DONE.";P^=:— JH=27:N(t=16:iH=16:DDW$(VN),N 

♦(NM), !$(»), IL(IM),P(D1),IN(I«),P$(PH),P<PH,5);GOSUB50000:GOTO 

1000 

200 GOSUE!19990!GOTO100fl 

190 a="":b=a:c=a:gv=a:gn=a:inputa 

500 Z=LEN(A) !IFZ=0T>CN19OELSEIFZ-lTHEN51OELSEIFA="I"TfCNV=3:N=O: 
RErjRf€LSEV=0 :C=A:GOT0580 

519 GOSlB6«0:B=O:GV=C:iFZl=lLETC=«:V=0:GOTO5eflaSEFDRI=lTOVM:iFB 
OV$ ( I ) fe(TaSEV=I ; G0T055fl 

520 V=0:C=8!GOT05eO 

550 F(Z-Z1-1 )<lTHEN590aSEA=ftIGHT$(A,Z-Zl-l ) :Z=LEN(A) !C=A 

560 F L£FT»(C,1)0" "T)CN570ELSEC=RIGHT«<C,Z-1):Z=L£N(C):IFZ=0T 

HEN590ELSE560 

570 A=c:Gosue60o:c=D 

580 GfM;:F0RI=lT0W:FCON*(I)NEXTELS£Jt=I!RETURN 
590 N=fl:RETURN 

600 F0RI=lT0Z:iF«ID»(A,I,l)O" "NEXT 
610 D=LEFT$(A,I-1) ;G=0:D=t£FT$(D,5) :Z1=LEN(D) ;RfnjRN 
1000 CLS:j=fRE(B):GA=" 

NEITtCR ARE SEEN AGAIN.":G8="T)C I«TM T^S YOUR ":GC="Y0U ARE 
LYING IN A tWW SOFT BED.":GO="YOU ^«E AT TJC aOSET.":GE="SEVE 
RAL NATIVES HAVE HEIiO!":G1="TWT'S TOO DtfC£R0US.":G5="n'S NON 
HERE IN SIGHT." 
1008 G9="Y0U HAD BETTER \Ittft., FAST.";PRINTP«(Y):PRINT;I>="Y0U CA 



N SEE ";Z=lZ:Zl=Y:iFY=lW«)K=OTHENFIL(l)=lTHEMiaNTD;i$(l);GOT01 
080ELSEFRINTD ;G7 ; GOTOl 080aSE1020 

1010 d="you are carrying ":z=16:z1=-1 
1020 a=o:j=i 

1030 FORI=1TOI«:FIL(I)OZ1ANDIL(I)0-2THEN1070 

1035 B=I$(I) :FI=»M)IL(I)=-2TtCNFZl=YORIL(2)>0THEN1070 

1010 FJ=0THEN1050ELSEJ=0:D=O+e:Z=LEN<D);PRINTD;;GOTO1070 

1050 PRINT", ";:FZ+LEN(B)>60TfCNPRINT:Z=0 

1060 D=e:Z=Z+LEN(D)+2:PRINTD; 

1070 NEXn:FAO0T(CNPRM".":G0T01080ELSEPRimD!!IFZl=YT(CNPRIN 

TG7ELSEPRINT"N0THING." 

1080 IFXB=1PRINTGC 

1090 IFV=3ORV=13n£N1250 

1200 XD=XIH1!IFY=7THEN5000ELSEFY=17T)CN5100ELSEFY=31T>CN5200EL 

SE[FY=22ORY=27THEN5300aSEIFY=12TtCN5100 

1210 IFYl=18ORY=18TfCN125flaS£X7=0 

1220 XD=0 

1250 FTS=0THENIFT>20IFY>3IFYO7IFYO18PRINT"A IMTM THfflHS A S 

PEAR AT YOU. 

HE MISSES AND RUNS 0F."!IL(6)=Y:TS=1 

1260 F>H=0THENIFIL(13)=-1LETN5=N5+1:A="A CtttRMING LITTLE FLUTE" 

!IFN5>16PRINT"AFTER fWNY HOURS OF HHITTLING, YOUR SUGtfJ 

CANE IS N0H'"A".":«(13)=A:S=S+5:N1=1:IN(13)=15 

1270 IFXE=OA«)<Y=20RY=10)PRINT:PRINT"OH no . . . your FECT ARE b 

ARE . . . TOOLATEI":S=S-50:GOT07000 

1300 PRINT:GOSUB190:GOT01500 

1150 IFY=90RY=lflPRINT"A FIERCE BLACK LEOPW» BARS THE HAY.":G0T0 

1200 

1160 IFY=3ZTtCNIFW©(5)<3THENY=31tGOTO1000ELSEY=31 JGOTOlOOfl 

1170 PRINT"THAT LEADS TO QUICK»M).":GOT01200 
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1500 T=T+liFVT)CN1600ELSEFMTfCN1520 

1510 I=«M)(3) .•in=lTfB«aNT"HHAT?"aSEIFI=2T»CNPRINT"HUH?"ELSEP 

RM"I#WT IN THE HORU) ARE YOU TALKING ABOUT? 

1515 GOT012DO 

1520 IFN>12T»CN1550ELSEFN<7THEN1525aSEN=f<-6 

1525 Z=P(Y,N-1) 

1530 IF7<0THEN1560aSEIF7=98THENl'»5flaSEinO0T}CN151flELSa=RM)( 

2.):FI=lTHENPRINT"T>ttT DIRECnON IS SEALED QFF.":GOTO1200aSEIFI 

=2THENPRINT"Y0U WON'T CETflNYHHERE GOING Tt*»T DIRECn0N.":G0T012 

00ELSEPRINT"YOU CAN'T GO TWT »WY."!GOTO1200 

1510 Y1=Y:Y=Z!GOT01000 

1550 PRINT"HHAT DO YOU M(WT TO DO WTH T\£ ";GN|"?"!GOT01ZOO 

1560 IFY=6THENIFRND(Z)=2THENZ=0:GOT01530ELSEY=-Z:GOT01000 

1570 IFY=lZTHENIFRM)(1)=lTfCNY=li:GOTO10fl0aSE1000 

1580 IFY=22THENIFRM)(2)=lT)CNY=2i:GOTO10fl0aSEY=19:GOTO1000 

1585 IFRND(8)<1TfCNY=-Z:i»(M)="A HUNGRY W1IGATOR":GOT01000ELSE 

Z=0:GOT01530 

1600 WM»TO1610, 1800, 1010, 1900,1900,2100, 2200, 1000,2900,2500, 26 

00,2700,1010,2100,3000,3100,3200,3300,3100,3500,2700,3600,3760,3 

800,3900,3700,3100 

1610 IFN=OPRINT">»0 KNOHS HmT A "GN" IS?":GOT01300 

1615 IFMI>1PRINT"Y0UR LOAD'S TOO fCAVY.":GOTO1300 

1617 IFN=16AM)V5=lAM)IL(8)=YrfC>a=8iG0T0169fl 

1620 IFV5««)N=16THEN1630ELSEGOSUB590fl:ffXl>0THEN371fl 

1625 IFN=11LETN=Z2:GOT02710 

1627 IFN=31THENIFY=33TfCN3720ELSE5960 

1630 IFN=2inCN1700ELSEFORI=lTOIM:iFN=IN(I)TtCN1635aSENEXTi:GOT 

O1510 

1635 inL(I)=-10R(IL(2)=-l««IL(I)=-2)T>CNIFI=7THENPRINTLEn$<Gl 

, 17)+"HD1. " IGOTOlZOOaSEPR'INTGl ;GOT01200 

1610 IFIL(I)OYOR(Y=lAM)K=0(W)I<>l)THEN5960 

1612 lEXBIFIOlPRINT'TROH B£D?":GOT01220 

1615 FN=18n€N36flOaSEIFI=2(W)IL(5)=-2THENHI=«I+l 

1650 IFN=37THENIFXnHEN1690ELSEF'RINT"n'S NOT FREE."!GOT012flO 

1660 IFN=38PRINT"DR. UVINGSTOff? 

":infuta:fa<;'>"i P'Resume'-gosubsooigotoisoo 

1690 PRINTfi^ 

1695 il(I)=-i:mi=«i+i:gotoi200 

1700 IFXEF1t[NT"Y0U'RE HEARING THE)1.":GOT01200 

1705 Z=35:FRM)(8)<1THENIFRW)(2)=lTHENZ=25aSEZ=27 

1710 IFKPRINT"Y[)UR FEET ARE NOW SNUG IN A PAIR OF HIKING EOOTS." 

IS=S+5:X£=i:i*(7)="DR. LiyiNGSTON":iL(7)=Z:iN(7)=38:GOTO1300 

1720 PRINT"HWT BOOTS?" :GOTG1300 

1800 FN=0TH£N1610 

1810 FN=21T^CNF■RINT"THEY'R£ STUCK. ";GOT01200ELSEFORI=1TOIM!FIN 

(I)=NTtCN1820EL^NEXTIiGOTO1510 

1820 FIL(I)>-1THEN5950ELSEFY=1ANDK=0ANDD1F1<INT"T>CRE'S NO ROO 

m.";gotoi30o 

1830 FIL(I)=-2THENIFIL(2)=-1THEN3100ELSE5950 

1810 IFN=16THEN3110ELSEFI=2/M)IL(5)=-2THENKI=«:-1 

1890 IL(I)=Y:PRIMTR»:GOSUB3180 

1895 MI=«I-1:GOT01200 

1900 e="ITS ALRD»Y ":C=e+"CLOSED.":A=€i+"flPEN.":D="FW)M bed?":f 

N=OT>CN1510ELSEFV=5THEN2000 

1905 IFY-1THEN1930ELSEFN-22THEN1920 

1910 F)(6=1PRINTD:GOT01200 

1915 ifk=othenk=i:gotoioooelseprinta:gotoi20o 
1920 ifn=zothenfil(l)=-ltfcnfxc=ot«nprint"the book falls open 
to an underlined passage. "!xc=l!goto1200aseprinta:gotolz00else 

5950 

1930 IFN=13THENFIL(2;=-lT^B#>RINTA:GOTO1200ELSE5950ELSE1510 
2000 IFY-lTHEN2020ELS£IFN-22TtCN2010 
2005 FXB=1PRINTD:GOT01200 
2007 FK=lTHENK=0:GOTO1000ELSEF1<INTC;GOTOlZ0fl 
2010 FN=20T>CNIFIL(l)=-lTHENFXC=lTfCNPRINTR«:XC=0:GOTO1200aSE 
PRINTC:GOT01200ELSE5950 

2020 IFN=13THENIFIL(Z)=-lTHENFE(5)=-2THDfRINT"TtC HOUSE HON'T 
ESCAP£"':GOTOt200ELSEPRINT"n'LL JUST FALL OFtN AGAIN. ":GOT0120 



OaSE5950ELSE1510 

2100 FY=2rHEN2210ELSEIFIL(l)=-lAM)XB=lT»CNIL(l)=i:NI=«-i:Y=2:X 

B=0:GOTO1000aSE151D 

2200 FM>0TlCN151QaSEIFY=lTHENY=10:X&=0:FIL(l)=-lTIO«I^-i:i 

L(l )=1 :G0T01000aSE1000ELSEIFYOlflTtCN1510ELSEIFIL(7)^lTHENIL(7 

)=«0(33)+2:PRINT"HELP":MI=M-1:F(]RJ=1T0999!NEXT 

Z210 y=i:gotoiooo 

2180 IFY=Z9THEHIFW=1flT(CNIFlL(1)=-lTI€JPRINTGB"GR0UNDNUTS.":XF=l 

:IL(1)=0 tHI=«-l !S=S+1D :GOTO1200ELS£595OaSE2120 

2110 IFY=17TfCNIFN=12THENIFXGIFIL(10)=-lTfCNPfaNTG8;"eE/»6, GM 

S YOU A TRDKET, THEN RUNS OFF.";!I»(10)="A GOLDEN NOSE RING":N$ 

(26)="RING":XG=0:S=S+15!IN(10)=26!GOTO1220ELSE5950 

2120 PRINT"NO DICE.":GOT01200 

2500 FY=1PRINT"THIS m SEEM STRANGE OR B€N ABSURD 

BtJT IN THE BOOK IS A rVtflCAL MORDI";GOT012SO 

2510 IFY=230RY=21PRINT"Y0U HON'T GET ACROSS lOTH A 'HOP' OR A 'S 

KF'.":GOT01250 

2520 IFY=250RY=220RY=12DRY=27PRINT"BE PERSISTENT. ":G0T0125fl 

2530 F(Y=310RY=17)/W)IL(6)=-1PRINT"Y0U LOOK HOSTILE. ":GOT0125fl 

2510 IFY=31PRINT"LI0N TR(¥>S CIRCLE T»C VILLAGE. ":GOT01250 

2550 FY=7PRINT"S0ME »MKES JUST Cdi'l BE CW«MED.":GOT01250 

2560 PRINTG2:GOT01250 

2600 A="AFRICA - LM) OF THE UNKNOJW BY R. U. RED0E":B=". 

..PLORER NODDED OFF TO SLEEP, HIS THOUGHTS BESm TO DRFT T...": 

FN=36THE^(FIL ( 1 1 )=-lT>CNPRINT"Sl««I DIAMOND" :GOT01200aSE5950 

2610 IFN=19TtCNIFY=290RY=33Tfe#>RINT"TRADING POST":GOT012flOaSEI 

FY=3ine«»/T"UJIJI COUNTRY - KEEP OUT 

NO t£ED 'EJ1 , « EAT 'EM.":GOTO1200aSE5960 

2620 FN=20ORN=25TtB(IFIL(l)=-lTHENFXB=lTHENIFN=20T>CNPRINTA:GO 

T01200aSEFXC=inO«?INTB:G0T012fl0aSE596flaSEPRINT"TRYRE/«)ING 

IN BED.":GOTO12fl0aSE5950aSE151fl 

2700 FN=0TJ€N151OaSEIFN<13TtCN1520aSEFN=17THEN38OOaSEIFN=21 
WOY=3T)CNY=2:G0T01000aSEIFN=16FY=17THENY=18:G0T01000 
2710 IFN=22AM)Y=lPRINTGD:XB=0:GOTO120flaSEFN=23THENIFY=lTHEJfRI 
MTGC:XB=i:GOT01300aSEPRINT"IN W«<EST tfRICA?":GOTO1200 
2760 IFN=11ANDY=31TtCNY=35:GOT01000aSEIFN=29THENIFY=16TJCNY=17J 
GOTO1000aSEIFY=32THENN=3:GOTO1525 
2770 GOTO1510 

2900 IFN=35T>CNIFIL(16)=-lTHEN2920aS£5950 
2910 IFN=11THENFIL(6)=-lTHEN2920aSE5950ELSEPRINTG3:GOTO1200 
2920 PRINT"n SAILS TrtfflUUGH T* AIR... 

...AND HHS TtC ";:FY=2PRINT"I«TER, QUICKLY SINKING."! J=0:GOT02 
910 

2930 J=Y:iFY=lTHDfRIMT"FLOOR."aSEPRINT"GROUND." 
2935 IFY=7LETJ=6 

2910 IFN=11THENIL(6)=jaSEIL(16)=J 
2915 IFY=IL(11)<WRND(Z)=2TFefORI=lTO750!MEXT:PRINT" 
WAIT' THAT'S NOT GROUND. IT'S ALaGAT0R."!I$(11)="A DEAD ALLI 
GATOR" 

2950 GOT01895 

3000 IF(Y=170RY=310RY=29)W©N=11ANDIL(6)=-lT>CNPRINTG8:GOT0120flE 
LSE3710 
3100 FN=18THENIFIL(5)=-2ANDIL(2)=-lTtCNFY=9ORY=10THENPRINT"THE 

MOUSE MfS OUT WC ST/«TLES T« LEOPARD INTO FUGHT."GA:P(9,1) 
=10!P(10,5)=9:iL(5)=0:S=S+15:GOTO1895aSEPRINT"Tff MOUSE JUMPS 
UT and SCAMPERS 0F.";iL(5)=2;GOT01895aSE595fl 
3110 IFN=16TfCNFF(8)=-lTfCNFY=22T»CNPRINT"TfC VIPER H«<ES IF, 

AHACKS THE DOG, 

AND BOTH FALL INTO THE QUICKSAND.";GA:iL(8)=0:S=S+15:GOTO3120aS 
EPRINT"T>C VFER SLOWLY SLITHERS AHAY."!IL(8)=7;GOTOlB95aSE5950 
aSE1510 

3120 I$(15)="A DEEP-BLUE SAPPHIRE":IN(15)=15:PRINT:PRINT"S0METHI 
NG SPARKLfS IN TfC GRASS, ":GOT01895 

3200 IFN=16T>CNIFV5=flTf£NIFY=IL(8)T>CNIFlL(13)=-lT>CNI$(8)="A LE 
TH<«GIC VIPER":V5=i:S=S+10:PRINTR»:GOTO1210aSEPRINT"YOU )WY HAV 
E GOOD LOOKS, BUT...":GOTO1200aSEPRINTG5:GOTO1200aSEPRINT"AGAI 
N?":GOTO1200aSE3710 
3300 IFN=13TICN3310ELSEPRINT"O K - fCRE GOES 

continued on next page 
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continued from previous page 

J u h p":gotoi20o 

3310 IFY<230RY>21TICNPRINT"THERE ISN'T Ptd QUICKS^ tCRE."!GOTO 

1200 

3320 PRINT"DO YOU REMIY EXPECT TO JUN> OtR 30 FEH? 

":D#VrA:FAO"YES"TICNG0SUB500:G0T01500 

3330 GC=C««(21):GE=GC+a;!G9=GE+GE+GC:GA=CHR«(152):G8=CW$(191)! 

G=CH»(162)+CW$(183)+GA:a)=<>W(26):G5=af;»(176):G'l=GI>+€£:B=G+G 

1+€C+CHR$ ( 1 39 ) +GB+CtW ( 135 ) +G'HC»« ( 1 68 ) +CH» ( 1 15 ) ! A=G+€HM ( 129 ) 

+G'HGE+GC+GA+CHR$( 171 )+G8:C=CHR$( 181) 

3310 G=CH»(160)^{:+CHR$(128);GA=CH»(110);C=A+Ge+G5+G5+C+G1+G9+C 

W»(156)+GA+CH»(113)!A=A+CHR<(159)+C1+GB+a>Ha:+CH«(113)+Gfl:CLS 

:PRINT"0 K - f€R£ GOES"!PRMeil0,A;:FORI=lTO700:«XT 

3350 F0RI=lT05:G=G+C:NEXT:GA=STRING$(5,128)+a);D=GA+G9;D=t>+D+O+O 

+o:printmio,d; :pwnt0173,b; :e="":FORi=iT030o:NEXT:PRiNTei73,D; ; 
PRiNTe282,c;;c="" 

3360 J=n«E(B) :Z=1:FORI=638T0577STEP-1 !F1C[NTH,LEFT$(G,Z) I :Z=Z+1 : 

»€Xn:Z=li;FORI=lT08i:PRINTg577,MID$(G,Z,62):Z=Z+i:NEXTi:PRINT?2 

82,CHW(31);;PRINTM10,A;:PRIMT8353,"TA DA";:FQRI=lT0999:ftXTi: 

0=0 ;iFY=23THENY=21ELSEy=23 

3370 GOTOIOOO 

3100 GOSUB3180 

3110 PRINT"YOUR SCORE IS "ST" POINTS OUT OF 250 IN "T"TURNS.";iF 

V=27THEN3120aS£1250 

3120 IFY=2ORY=10ORD="QUIT"E)l) 

3125 IFRET>CNIFRND(5)>2END 

3130 PRINT"RE/«)Y 

>."JFORI=lTO5000;NEXT:CLS:PRINTe338,CH«(23)"A MIRACLE 

YOU HM€ R£CatRED";«I=0:FO(<I=2TO16;FIL(I)=-lT1€HIL(I)=»C 
(32)+3:NEXTELSENEXT 

3110 fori=itoiooo:next:y=2!RE=i:gotoiooo 

3180 ST=0:FORI=1T016:IFIL{I)=1LETST=ST+IP(I) 

3185 NEm;ST=ST+S:FST<215RETURN 

3192 B="m '";A="MX€NTURER'":in<190L£TST=ST+15:e="A 'TALENTED 

II 

3191 ffT<160LETST=ST+10;B="A 'SKILifD " 
3196 FT<130LETST=ST+10:B="A '^ttSTER " 
3198 PRINT" 

YOU («£ "b;a:d="Quit":v=27:goto31io 

3500 IFN=OTHEN1510ELSEIFY=10RY>3THEN353fl 
3505 IFN=21PRINT"HHERE?"!GOT01200 
_ 3520 FY=2OR(Y=3AND(N=1QRN=I0))THEN2700 
3530 IFY=230RY=21PRINT"0N QUICKSAND f"!GOTO1200 
3510 PK[NT"ROH ON LM)?":GOT01200 

3600 IFN=18THENIFY=IL(5)T»CNIFIL(2)=-lTfe«'RINT"THE MOUSE IS NOH 
LOST IN n£ FOLDS OF YOUR KiWSACK.";i=0:iL(5)=-2!GOTO1695aSEP 
RINT"YGU DON'TWWE ANYTHING TO PUT H IN.":GOTO1200ELSE5960aSE 
3710 

3700 IFN=180RN=31PRINT"n JUST ATE.":GOT01200 
3710 IFN=0THEN1510ELSEGOSUe5900:FXl=lTHENPRINTG1.'GOTO1200aSEF 
X1=2THEN5960 

3720 IF»=180RN=31TICNIFV=17THENPRM"R00ENTS ARE CHARHING ENOUGH 
!":GOTO1200ELSEPRINT"n'S TOO QUia<.";G0T012fl8 
3730 PRINTG3:GOT0120fl 
3760 IR=18THENY=17:GOTO1000aSE1510 
3880 IFY=6ORY=7TtCNY=7:GOTO1000aSE1510 
3900 A=" 

UMM1 GO0O.":iFN=18WCIL(5)=-2AM)IL(2)=-lPRINTR$" 
YUK !!":IL(5)=0:GOT01895 

3920 F0RI=lT016:iFIN(I)ONT}B#CXT:G0T03960ELSEIFIL(I)O-lTfOJ59 
50aSEIFN=120RN=100RN=39T>efRINTR$;A;iL(I)=0:GOT01895 
3915 in*=0T>CN1510 

3950 GOSUeS900:in(l=lPRBITGi:GOTO1200 
3960 PRINTG3:GOT01200 

5000 IFV5=OTHENIFXD=5THEN5110ELSEIFXD=8TtCN7000ELSE1250aSE1210 
5100 IFX7=0THE}«7=l!FIL(6)=-lT)CN5130aSE5120 
5110 IFIL(6)=-lT(CMIF)a)>inEN7000ELSE5110ELSE5150 
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5120 IFXGTfOff1U}fr"A FRIEIOLY NATM APPROACHES KITH SO* TRINKE 
TS. 

n APPEARS HE HANTS TO MAKE A TRADE. ";GOTO122flaSE1210 
5130 PRINT"SUDOENLY, A VOLLEY OF SPB«S FLIES CNER YOUR HEADJ 
AN OeVIQUS WARNING! " 
5110 PRINTG9:GOT01250 
5150 PRINTG£:GOT01220 

5200 FX7T)CN5110ELSEX7=1:FIL(6)=-1T>CN5130ELSE5150 
5300 IFN0T((Y=IL(15)ANDI«(15)="A MILD DOG")0R(Y=IL(11)W©I$(11)= 
"A HUNGRY WlIGATOR"))THEN1210ELSEIFXD=8THEN7000asaFXD=3ORXD=5 
PRINTG9 
5310 GOTO1250 

5100 IF)(D=3PRINT"A VOICE ECHOES FROM T* MOUTH OF THE CAVE .. . 
SHAM r':GOT01Z10ELSE1250 

5900 Xl=0;iFN=160RN=270RN=320RN=33THEN5910aSER£TURN 
5910 F(N=33WeY=27)OR(N=32ANDY=22^IN(15)=32)OR(N=27(W(Y=90RY 
=10)ANDP(9,1)=98)OR(N=16ANDV5=0(WDY=7)THENX1=1ELSEX1=2 
5920 RETURN 

5950 IFN=38THENPRINTL£FT$(G6,15)+"HIM."ELSEPRINTG6 
5955 GOTOIZOO 

5960 IFN=38TfCNPRINT"HE"+RIGHT»(G5,20)ELSEPRINTG5 
5970 GOTOIZOO 

7000 PRINT:PRINT"W«THEk explorer is LOST TO THE HILDS OF tfTttCA 
.";PRINT:V=27!GOT03100 

50000 FORI=lTOPM;READP«(I):(tXT;DATA"YOU W« IN A BEDROOM, tCARI 
NG PJ'S. 3 NIGHTSTAM) SITS 

BET)€EN THE CLOSET AND THE BED. THE BEDCOVERS (tl£ TURNED «m." 
,"YOU ARE DRFTING IN A ROHEOAT ON A iME, 
nCRE IS A BEACH ON THE EASTERN SHORELINE." 
50020 DATA"YOU /«E ON THE EASTERN SHORELINE. 
A BOAT IS TIED TO THE DOCK.", "YOU «E ON A GRASSY PLAIN.","", "A 
TRAIL BEGINS ICRE. OFF TO ONE SIDE IS A TREE." 
50060 DATA"YGU («E PRECARIOUSLY mj*€ED 
IN A IfLL MOSS-COVERED TREE.", "YOU ARE ON A N/S TRAIL. CLIFFS T 

THE EAST REACH UP TO A PLATEAU.", "YOU <«E AT THE FOOT OF A CLFF 

t 

A TRAIL LEADS UP TO AN OPENING." 

50110 DATA"YOU ARE AT THE MOUTH OF A CAVE. 

A TRAIL LE/«S DOWNWARD.", "YOU ARE IN A TUWtL. A FAINT GLOW Dtt 

NAFS FROM THE WEST. 

A SIGN ON THE HALL SAYS.* 'CAVERNS AftW) - ENTER AT OWN RISK'" 

50130 DATA"YOU ARE IN AN IMMENSE CAVERN. THE MLS 

ARE COVERED WITH AN IRIDESCENT GLOW.", "YOU ARE IN A LONG E/H PAS 

SAGE.","", "THE TRAF HERE IS OeGROW WITH GRASS.", "THE TRAIL N 

IDENS OUT TO A (CARBY VILLAGE*" 

50110 DATA"YOU *«E IN A NATIVE VILLAGE. 

T)€RE ARE SEVtRM. C/WFIRES ABOUT.", "YOU («E IN A GRASS HUT.","Y 

OU ARE AT THE EDGE OF A JUNGLE. 

A TRAF LEADS NORTH.", "YOU /«£ AT THE EDGE OF A JUNGLE. 

GRASSLANDS EXTEND TO TfE EAST MO SOUTH." 

50160 DATA"YOU MS IN A JUNGLE. TRAILS L£AO OFF IN SEVERAL DIREC 

nQNS.","","TtCRE IS A U«GE BODY OF QUICKSMC 

«RE, WITH A TRAIL JUST BEYOND.","", "","YOU ARE ON THE GRASS PLA 

INS. 

THE TERRAIN IS BECOMING SOCNWT MRSHY." 

50170 DATA"YOU ARE IN TfE >VftSt£S, SOMETHING IS MOVING T)£ GRAS 

S.","YOU ARE IN A WUEY. A SttLL OPENING fWKS TfC HILL 

BESIDE YOU. ROLLING HILLS FLOW SOUTrtWffl." 

50180 DATA"YOU ARE AT A TRADING POST. AN EAGER fWTIVE 

SMFfS AT YOU AS HE POINTS TO HIS SIGN.", "YOU MS IN A FFLD OF 

CORN. 

THE GROUND DROPS OFF TO THE NORTH.", "YOU «£ ON THE GRASS PLAINS 

TWO SHRU#(EN ICADS DECORAF A SIGN." 

50190 DATA"YOU ARE ON T* PLAINS. A VILLAGE LFS TO THE EAST,", 

"YOU fK. BEHIND A HUT. THERE IS A SIGN IN 

TW GROUfC. A SOUIRfia JUST MH BY." 

50200 OATA"YOU MK IN THE UJIJI VILLAGE. A NATM 



STANDS mR HOLDING A SPEti<, HE LOOKS EXCITED.", "YOU ARE IN A P 

n. LIGHT STREAMS IN FROM t«fJi," 

50900 P$(5)=P<(1)!F1(H)=P»(lfl):P»(22)=f$(21):P*(25)=f>$(Zl):P»(2 

i)=p$(23):PRiNnAB(7)"iN SEARCH OF ...";fori=itopm:forj=oto5:rea 

DP(I,J);f£XTJ,I 

S2000 DATAO)0)0,OtO,0,0»0, 3,0, 0,0, 0,5,1,2,0, 0,5,6,1,3,0)0, 3,0,6) 

1,0,0,-5,8,-1,-5,7,0,0,0,0,0,7,6,6,15,9,0,0,0,0,0,0,8,98,0,0,0,1 

1,0,0,98,0,0,12,10,0,13,-11,-11,-11,-11,-11,-11,11,0,11,15,0,0,0 

,0,0,13,0,28,0,0,16,8,0,0,15,19,17,19,0,0 

52010 DATA16,18,0,0, 0,0, 17,0, 0,0, 0,0, 16,22,20,21, 0,0, 0,26,26,19, 

0,0,21,23,22,21,21,21,21,22,-1,23,22,22,98,22,98,21,23,23,21,98, 

25,98,21,21,-20,25,-20,21,25,25,20,27,30,20,0,0,-26,27,27,27,27, 

27,0,30,29,0,11,0,0,0,0,28,0,0 

52020 DATA28,26,0,31, 0,0, 30,32,33,31, 0,0,31, 0,98,31, 0,0, 0,0, 0,31 

,0,0,31,31,31,32,0,35,0,0,0,13,31,0 

53000 fori=itowi:ro»v»(I):icxt;data"G£T","drop","I","OPEN","clo 
se" , "drift" , "shami" , "look" , "throw" , "hint" , "read" , "go" , "mjeh" , "t 
r«e" , "kill" , "free" , "cw«m" , "jump" , "score" , "rtw" , "enter" , "catch" 
, "exn" , "climb" , "eat" , "feed" , "quit" 

51000 FORI=lTONM!READN$(I):itXT:DATA"N","S","E","H","U","D","NOR 

TH" , "SOUTH" , "EAST" , "WEST" , "UP" , "DOWN" , "KNAPS" , "SPEAR" , "RUTE" , "V 

PER" , "TREE" , "HOUSE" , "SIGN" , "BOOK" , "BOAT" , "CLOSE" , "BED" , "BOOTS" , 

"PASSA","","LEOPA" 

5101 DATA"DI»IO" , "VILLA" , "TIONK" , "CAIC" , "DOG" , "ALLIG" , "SQUIR" , " 

DAGGE" , "NOTE" , "CmiN" , "LEON" , "CORN" , "GROUN" , "PH" , "BEANS" , "QUIC 

K","NATIV","SAPPH","HUT" 

Kooo fori=itoim:readi$(I):next:data"a tdchorn book","a faded r 

ED KNAPSAa'","EARS OF CORN", "A BATCH OF GROUNDNUTS", "A HNY GREY 
MOUSE", "A POISON-TIFfED SF€AR","A PAIR OF HIKING Ea)TS","A VICI 
OUS VIF'ER" 

55010 DATA"A SPAR'KLING DIAMOND", "A SACK OF COFFEE BEANS", "A CRUM 
FIED NOTE", "A SOLID SILVER CHAIN" , "SEVERAL STALKS OF SUGAR CANE" 
,"A HIWGRY ALLIGATOR", "A WILD DOG", "A PEARL-HANDLED DAGGER" 
56000 F0RI=1T0IM:R£ADIL(I),IP(I),IN(I):NEXT;DATA1, 0,20, 1,2, 13,30 
,5,39,33,5,10,2,7,18,0,3,11,1,50,21,7,0,16,10,15,28,15,12,12,18, 
3,36,29,15,37,21, 15, 31, 27,0,33,22,10, 32,12,10,35:RETURN 
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{Editor's Note: The authors of this program have 
provided extensive documentation; however, it has been 
purposely mislaid until our next issuel) 





Illustrations for "Dr. Livingston" by Cheryl Pelczarski 



Contributions for this department 

should be sent to: 

"ONE LINERS" 

c/o SoftSide Magazine 

P.O. Box 68 

Milford, NH 03055 

The following contributions are all for the S-80, 
although we welcome examples for the Apple and 
Atari computer also. 
PINWHEEL by Harry A. 
Hopkins, Langley AFB, Virginia: 

I l)EFSTRA:as:A=CHR$(RND(63)+128):P=RND(50)+518:PRINTeP,A,'JP=P+l 

:pRDfrep,A; :p=*-6i:printbp,a; :forx=2tornd(ii) :FORr=iTOx:p=p-i:PR 
DfTep,A;jNEXT:niRi=iTox:p=p+6i:PRiNT8P,A;:NEXT:x=x+i:FORi=iTox:p 

'f+i:PRINT8P,Aj:>CXT:F0RI=lT0X:P=P-6i:PRINTeP,Aj:NEXT:NEXTX!RUN 

Untitled - author unknown 

1 DEFINTA-Z:C^»I)(62)+129:FQRA=155T01STEP-1 :FORB=15360T016383STE 

pa:pckeb,c:nextb:cls:nexta:run 

BLASTOFF by Richard A. 
Vossell, Hampton, Virginia 

1 print:print:r$=ch»(191):z$=ch»(176):y*=chr«(188):x=rnd(53)+3 

:A<=Z$+Y$+R«+Y$+Z$:F0RT=lT0RND(5)+3!PRINnAe(X)A*:A»=STRING$(5,R 

♦):ftXT.'PRiNnA6(x-2)z»;Y$;A$;Y$;z$:PRiNn«(x+i)"m":pRiNnA6( 

X)")nDm:"!PRINnAB(X+l)"ii«":PRINn^(X+2)"«":RUNl 
MIRROR PATTERNS and LINES 
by Joseph Gaudreau, Malone, NY 

1 DEFINTA-Z:A=19i:B=32:CLS:FORN=OT015:FORT=61«fH536flT061iN+1512 
3STEPRND(1):iFPEEK(T)=BP0KET,A:P0KE31713-T,A:NEXT:NEXr:G0T01ELSE 
P0KET,B;P0KE31713-T,B:iCXT:NEXT:G0T01 

1 CLS:DEFINTA-Z:F0RI*=RND(61)T0RM)(511)+512STEPRND(75);PRINTeN,ST 

RING»(3,191)JNEXTJFORN=1T0500:NEXT:GOT01 

ALIENS ARRIVING! by Noel 

Paul Stookey, Maine 

1 CLS!PRINTei72, "ALIENS ARRIVINGI":FORT=1T0500:I€XT:A»=CH»(188) 

:C$=STRING»(9," ")tFORX=lTO1005STEP67:S=RND(999)JPRINTK,"i";:PR 

INT0X,A»STRING*(7,175)A»;FORT=lTO2i:NEXT:PRINTeX,C»:PRINTeX,A»ST 

RING*(7,159)A*JFORT=lT02i:NEXT:PRINTeX,C$;:NEXT:GOT01 ' 

SPACE INVADERS 
Mark L. Kayton 
Westport, Conneticut 
Instructions: 

Your mission is to protect the Earth from the 
invading aliens (a completely original theme). You 
have just come across a fleet of them while they are 
sleeping. You must shoot your missiles at them by 
pressing the space-bar. Your computer will guide the 
missiles for you. Please note that after you have 
destroyed most of the aliens, your computer may take 
longer to decide where to fire the next missile, so be 
patient. When you have destroyed them all, you will 
have to press BREAKto end the game: 

1 CLEAft'99:C=RND(62)+33:PRINTeO,STRING$(63,C);FORX=OT01E+9:iFIM€ 
Y»=""THEN(€XTELSEFORH=OT01E+9:R'=RND(63)-1;IFP£EK(15360+R)CK;THEN 
NEjnH.SEFORL=960+RTORSTEP-61.*PRINTeL,"f';!PRINTeL," ";:NEXT:F0RL 
=OT09:PRINTeR,CHR$(RND(159)+32);:NEXT!PRINTeR," "N'NEXTXELSENEXT 
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FOOSBALL is an Apple 
program requiring Integer BASIC 
and 16 K memory. Documentation 
of the machine language routine is 
included, but not necessary for 
using the program. 

by Douglas Johnson 



Strategic use of a machine 
language routine makes this an 
excellent, fast-paced game. With a 
choice of 3 paddle sizes, the object 
is to get the ball past your 
opponent 15 times. Play starts 
when both paddle buttons are 
being pressed. 



PROGRAM VARIABLES 



Variable Name 



Description 



X 

P 



ST 



SL 
SR 
HV 

VV 

HP 
VP 
OH 

OV 



A$ and 

Q9$ 

A.B.C 



SO 



All purpose FOR-NEXT 

loop variable 

In the first part of the 

program P is the paddle 

input adjusted for use by 

the machine subroutine. In 

the second part P indicates 

which paddle the ball has 

hit to adjust the vertical 

velocity accordingly. 

Start flag - when either 

paddle button is pushed, 

the initial ball direction is 

fixed and ST prevents 

further change. 

Left player's score 

Right player's score 

Horizontal velocity of ball 

(1 or -1) 

Vertical velocity of ball (1, 

0, or -1) 

Horizontal position of bedl 

Vertical position of ball 

Old horizontal position of 

ball 

Old vertical position of 

ball 

Dummy variable for 

speaker clicks 

Response to input requests 
Decimal color values to be 
poked into memory for use 
by the machine subroutine 





FOOSBALL 



D Starting addresses for 

color sequences used by 
the machine subroutine 

I,J,K Addresses and offsets for 
position sequences 

THE MACHINE LANGUAGE 
ROUTINE 

The program pokes three groups 
of information into memory. Lines 
2000 to 2070 put the machine 
language subroutine into memory. 
This routine occupies hexadecimal 
addresses $1000 to $103 D. Lines 
2080 through 2180 put the color 
sequence data into hexadecimal 
addresses $1200 through $127F. 
Lines 2190 through 2360 put 
position sequence data into 
hexadecimal addresses $1400 
through $14FF. These two data 
sequences are used by the 
subroutine. 

The routine is a loop within a 
loop. Each time through the loop a 
color value is retrieved from the 
color sequence data and placed at 
an address found in the position 
sequence data. In the low-res 
graphics mode this places two 
color blocks on the screen. The 
next time through the loop, the 
next color and address are picked 
in the sequences. There are two 



position sequences, one for each 
set of paddles, in addresses $1400 
to $1478 and $1480 to $14F8. The 
addresses in these sequences draw 
the paddles from top to bottom 
and left to right. (Refer to the new 
reference manual for memory to 
screen mapping.) Since all three 
columns of paddles are the same, 
color data for only one column is 
stored in memory. As the routine 
progresses through the position 
addresses, the color sequence is 
read to the end of a column and 
then reset to the starting color 
value and read again. This is the 
reason for the inner and outer 
loops. The apparent position of 
the paddles on the screen is 
determined by where in the color 
sequence the routine begins reading 
values. There are four color 
sequences, two for each set of 
paddles. The reason for two 
sequences is that each 8 bit byte 
stores colors for two blocks. 
Rather than trying to read a half 
byte, a second sequence which is 
siiifted a half byte is stored. Which 
paddle to draw and where to start 
in the color sequence are poked 
into the routine by the main 
program. An assembly listing with 
remarks follows: 



Address — Operation — Argument ■ 
OFFF 



-Remarks - 



1000 LDX #$00 - 

1002 LDY #$00 - 

1004 LDA $0FFF- 



1007- 
lOOA- 



-STA 
-LDA 



-$1017- 
•$14xx 



lOOD STA $101B- 

1010 LDA $14xx ■ 



stores starting position which 
has been poked in by the 
main program 
initialize inner loop counter 
initialize outer loop counter 
load accumulator with the 
value in $OFFF 
store value in accumulator in 
$1017 

load accumulator with the 
value in $14xx. The lower 
half of the address xx is 
poked in by the main 
program and indicates which 
set of paddles are to drawn 
store value in accumulator in 
$101B 

' load the accumulator with the 
value in $14xx. 'xx' is the se- 
cond half of the address for 
paddle position 



1013- 
1016- 



STA 



LDA 



-SIOIA- 
-$12xx- 



1019- 



-STA- 



-Sxxxx- 



lOlC- 
lOlD- 
lOlF- 



-INX- 
-CPX- 
-BEQ- 



#$15- 
-$1033- 



1021- 
1024- 
1027- 
102A- 



INC- 
■INC- 
-INC 
■INC 



-SIOOB- 

•SIOOB- 

$1011- 

.$1011- 



102D- 



-INC- 



$1017- 



1030- 
1033- 

1035- 

1036- 
1038- 

103A- 
103D- 



JMP 
LDX 

-INY- 

CPY- 
■BEQ 

JMP 
-RTS ■ 



.$100A. 
#$00- 



-#$03 — 
-$103D- 

$1004- 



- store value in accumulator in 
$101A 

■ load accumulator with the 
value in $12xx. 'xx' was 
transferred from $OFFF 

- store value in accumulator in 
xxxx. 'xxxx' is the address 
constructed from addresses 
14xx and 14xx + 1 
increment inner loop counter 
if the value in register X 

is equal to hexadecimal $15 
(decimal 21) then branch to 
$1033 

■ increment the value in $100B 

■ twice 

- increment the value in $101 1 

- twice 

these increment the screen ad- 
dress position pointer 

• increment the value in $1017. 
This increments the color se- 
quence pointer 

. go to $100A 

■ re-initialize the inner loop 
counter 

- increment the outer loop 
counter 

• if the value in register Y 

■ equals 3 then branch to 
$103D 

go to $1004 

• return to the main program 



Lines 2-6 change LOMEM to 
dcconodate the nachine language 
routine, call the subroutine that 
pokes in the routine^ and set low 
resokition graphics node. 

2 POKE 71,5100 MOO 25A: POKE 
75,5400/256: POKE 201, PEEK 
(71): POKE 205, PEEK (75) 

1 COSUB lOOO: GOSUB 2000 

6 GR 

Liries B-16 create the backgrourid. 

8 C0L0R=2 

10 FOR X=0 TO 39 
12 HJN 0,39 AT X 

11 ^OT X 
16 GOTO H 

Lines 18-12 forn the si-ibrot-itine 
that draws the paddles. Valijes are 
passed to a nachine language 
roLitire to iricrease the speed. 



18 F-( PDL (0)/10) HOD 12 

20 F-(ll-P)/2+32i(P M) 2) 
22 POKE 1095, P 

21 F-OKE 1107,0 
26 F-OKE 1113,1 
28 CALL 1096 

30 F-( FDL (1)/10) MOD 12 

32 P=(ll-P)/2+32x(P m) 2)+61 

31 F-OKE 1095,P 
36 POKE 1107,128 
3B POKE 1113,129 
10 CALL 1096 

12 RETURN 

Lirres 11-52 are initialization. 



11 ST=0 

16 SL=0:SR=0 

18 PRINT " ",SL,' 

50 FItENT 

52 PRINT 



",SR 



Lines 51-100 show the flashing ball 
at the beginning. When both paddle 
buttoris are pLished the loop is 
broken and play begins, 

51 C0L0R=15 
56 PLOT 19,19 
58 FOR X=l TO 15 

60 GOSUB 18 
62 GOSUB 66 

61 GOTO 80 

66 F ST=1 THEN 78 

68 if peek (-16287x128 ticn 71 
70 st=i:hv=i 

72 GOTO 78 

71 F PEEK (-16286X128 Tf€N 78 

76 ST=i:W=-l 

78 RETURN 

80 NEXT X 
82C0L0R=2 

81 PLOT 19,19 
86 FOR X=l TO 15 
88 GOSUB 18 

90 GOSUB 66 
92ttXTX 

91 F ST=1 THEN 98 
96 GOTO 51 

98 F PEEK (-16287)>127 AND PEEK 

(-16286)>127 TfCN 102 
100 GOTO 51 

Lines 102-120 control the position 
of the ball, 

102 st=o:w=o:hp=19:w>=19 

101 coLOR=2:oiHi>:ov=w>:nMf+w: 

W>=VP+W: F «><0 OR HP>39 THEN 
116: IF \^>-l AND VP<10 THEN 

i06:w=-w:vp=vp+2iw 

106 F SCRN(lf>,^)=2 THEN lli:W= 

-w:tf4f+2iw:p=i: f (hp- 

2XHV-1) MOO 12=0 THEN P=0:VP= 
VP-W 
108 Z= PEEK (-16336) :Z= PEEK (- 
16336) 

110 W=W+(((VP-(( POL (P)/10) MOO 
12)-11+PSx3) MOD 12)/PS-1): 

F W>1 THEN W=i: IF W<- 
1 THEN W=-l 
112 VF-=VP+W: F VP<0 THEN VP=0 
: F VP>39 THEN VP=39 

111 PLOT OH,OV: C0L0R=15: PLOT 

hp,vp: GOSUB 18: goto loi 

116 PLOT OH,OV 

118 FOR X=l TO 150 :Z= PEEK (-16336 

): fCXT X 
120 F OH=fl THEN in 

continued on next page 



3/ 



continued from previous page 

Lines 122-160 control the scoring 
and deternine the winner i 

122 SL=a.+l 

121 ff SL015 THEN 136 

126 PRINT " ",SL," ",SR 

128 PRINT "mnxm ORANGE HINS 

130 IW>UT "ANOTfCR GWC (Y/N): " 

132 F A*(1)="N" THEN 162 

133 Jmn "PADOLE SIZE (1-3) ", 
PS: F PS<1 OR PS>3 THEM 133 

131 GOSUB 2000: GOTO "H 
136 PRINT " ",SL," ",SR 
138 PRINT 
HO PRINT 
112 GOTO 51 
111SR=SR+1 

116 F SR015 THEN 151 
118 PRINT " ",SL," ",SR 

150 PRINT "iiiiiiin YELLOH WINS i 
muiiuux" 

152 GOTO 130 

151 F'RM " ",SL," ",SR 
156 PRINT 
158 PRINT 

160 GOTO 51 

Lines 162-166 end ?ls^, 

162 TEXT 

161 CALL -936 
166 END 

Lines 1000-1310 begin the progrm 
by asking the desired paddle size. 

1000 TEXT 

1010 an -936 

1020 VTAB 7 

1030 PRINT " ui GRID BALL 

m" 
1010 PRINT 
1012 INPUT "PADDLE SIZE (1-3) ", 

PS 
ion F PS<1 OR PS>3 THEN 1012 
1310 RETURN 

Lines 2000-2070 poke in the paddle 
drawing Hachine language routine. 

2000 POKE 1096,162: POKE 1097,0: 
POKE 1098,160: POKE 1099,0 
: POKE 1100,173: POKE 1101, 
255: POKE 1102,15: POKE 1103 
»111 



2010 POKE 1101,23: POKE 1105,16: 
POKE 1106,173: POKE 1107,0 
: POKE 1108,20: POKE 1109,111 
: POKE 1110,27: POKE 1111,16 

2020 POKE 1112,173: POKE 1113,i: 
POKE 1111,20: POKE 1115,111 
: POKE 1116,26: POKE 1117,16 
: POKE 1118,173: POKE 1119, 
121 

2030 POKE 1120,18: POKE 1121,111 
: POKE 1122,255: POKE 1123, 
255: POKE 1121,232: POKE 1125 
,22i: POKE 1126,21 : POKE 1127 
,210 

2010 POKE 1128,18: POKE 1129,238 
: F-OKE 1130,115 POKE 1131,16 
: POKE 1132,238: POKE 1133, 
li: POKE 1131,16: POKE 1135 
,238 

2050 F-OfiE 1136,17: POKE 1137,16: 
F-OKE 1138,238: FAKE 1139,17 
: POKE 1110,16: POKE 1111,238 
: Ft)KE 1112,23; POKE 1113,16 

2060 F'Of(E 1111,76: POKE 1115,10: 
POKE 1116,16: POKE 1117,162 
: FWE 1118,0: POKE 1119,200 
: F-OKE 1150,192: FDKE 1151, 
3 
2070 F-OKE 1152,210: Ftt£ 1153,3: 
F-OKE 1151,76: F-OKE 1155,i: 
POKE 1156,16: POKE 1157,96 



Lines 2080-2180 pok.e in the color 
seqi.ierices. 

2080 A=31:F=153:G=1608: GOTO 2080 
+PSX2 

2082 e=3i:c=3i:D=3i:E=ii6: goto 

2088 

2081 b=3i:c=3i:d=i53:e=i53: goto 

2088 
2086 B=116:C=153:D=153:E=153 
2088 G(KUE: 2130 

2090 a=ii:b=3i:g=i61o: goto 2090 
+PS12 

2092 C=31:D=31:E=31: goto 2098 
2091 C=31:D=116:E=153: goto 2098 

2096 C=153:D=153:E=153 
2098 GOSUB 2130 

2100 A=31:F=221:G=1672: goto 2100 
+PSI2 

2102 b=3i:c=3i:d=3i:e=2io: goto 

2108 

2101 b=3i:c=3i:d=22i:e=22i: goto 

2108 



2106 B=210:C=221:D=221:E=221 
2108 OJSUE- 2130 

2110 A=15:B=3i:G=17fli: goto 2110 
+PSX2 

2112 c=3i:d=3i:e=3i: goto 2118 
2111 c=3i:d=21o:e=22i: goto 2118 

2116 C=221:D=221:E=221 

2118 GOSUE! 2130 

2120 goto 2190 

2130 FOR I=G to G+19 STEP 6 

2110 F-OKE I, a: POKE I+1,B: F-Of(E 

1+2, C 
2150 F-Of(E I+3,D: POKE 1+1, E: PtKE 

I+5,F 
2160 NEXT I 
2170 F-OKE G+21,A 
2180 RETURN 

Lines 2190-2370 poke in the paddle 
positions. 

2190 FOR 1=5120 TO 5200 STEP 10 

2200 FOR J=0 TO 32 STEP 16 

2210 FOR K=fl TO 12 STEP 1 

2220 F-Of(E I+J+K,1+K/1 

2230 F-OKE I+J+K+2,1+K/1 

2210 F-OKE I+J+K+1,(1+3)«(I-5120)/ 

10+5XJ/2) Ml 256 
2250 F-OKE I+J+K+3,(132+3i(I-5120 

)/10+5xJ/2) MOD 256 
2260 NEXT K: NEXT j: NEXT I 
2270 F-OKE 5210,0 
2280 FOR 1=5218 TO 5328 STEP 10 
2290 FOF; J=0 TO 32 STEP- 16 
2300 FOR K=0 TO 12 STEP 1 
2310 POKE I+J+K,1+K/1 
2320 F-OKE I+J+K+2,1+K/1 
2330 F-OKE I+J+K+l,(10+3»( 1-5218) 

/10+5XJ/2) MOD 256 
2310 POKE I+J+K+3,(138+3x(I-5218 

)/10+5«J/2) MOD 256 

2^0 NEXT k: next j: ICXT I 

2360 POKE 5368,0 
2370 RETURN 



® 
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TO ORDER TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 



From Avalon Hil 

NORTH ATLANTIC CONVOY RAIDERS ($15) 

This game is a computer simulation of the Bismarck convoy raid of 1941. The computer controls 
the British convoys and British battleships. Will the Bismarck sink the Hood, only to be sunk in turn 
by the Rodney and King George V, as in history? Or, will the Bismarck cripple or sink the British 
Home Fleet and go rampaging through the convoy lanes? Your decisions will determine the fate of 
the Bismarck 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K fvlemory Apple 11", Applesoft, BASIC, 16K Memory beyond BASIC Pet*, 16K f^emory 

NUKEWAR ($15) 

NUKEWAR Is a computer simulation of a nuclear confrontation between two hypothetical 
countries. You must choose the methods to defend your country: either by massive espionage 
efforts, or by building jet fighter-bombers, missiles, submarines, and anti-ballistic missiles. 
Meanwhile, your cold and calculating computer will choose its own strategy to defend its country 
while also trying to destroy you utterly! NUKEWAR is very fast-paced and easy to learn, and can be 
enjoyed equally by game players of all ages and levels of experience. Best of all, once the nuclear 
war is over, you can bring the two countries back to life and try it again! 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80' 
Level II, 16K Memory. Apple IT, Applesoft" BASIC, 16K Memory beyond BASIC Pef, 16K 
Memory 

PLANET MINERS ($15) 

PLANET MINERS gives one to four players the chance to compete with each other and the 
computer to stake valuable mining claims throughout the solar system in the year 2050. Each player 
must decide which ships to send to which planets and when to try "dirty tricks" like sabotage and 
claim-jumping. If there are less than four players, the computer takes the other parts. (It can even 
play all by itself!) Thus, PLANET MINERS can either be played solitaire or with friends. 

This 1-4 player game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple M*. Applesoft* BASIC, 16K Memory beyond BASIC Pet 2001*, 16K 
Memory 

B-1 NUCLEAR BOMBER ($15) 

This game gives you an opportunity to be the pilot of a B-1 bomber on a mission over the Soviet 
Union. You must fly the plane through the stiff Russian defenses to the target city, bomb it, and 
return home Your computer controls the Soviet air defense bases with their almost unlimited 
numbers of MiG's (fighters) and SAM's (surface-to-air missiles). Your only chance to get through is 
to rely on the superior technology of your sophisticated ECM (electronic counter measures) and 
self-defense missiles. When all else fails, you can try violent evasive maneuvers. 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple II*, Applesoft* BASIC, 16K Memory beyond BASIC Pet', 16K Memory. 

MIDWAY CAMPAIGN ($15) 

MIDWAY CAMPAIGN is a computer simulation of the battle for Midway Island. Your 
microcomputer controls a huge force of Japanese ships whose objective is to invade and capture 
Midway Island If the Japanese can win air superiority over Midway, the success of the invasion is 
virtually guaranteed. If not, they will be forced to turn back to prevent the loss of irreplaceable 
troops who would be totally vulnerable in their invasion craft In the actual engagement, the 
Japanese made several tactical errors which cost them the battle. Your computer probably won't 
make the same mistakes! You command the badly outnumbered and outranged U.S. Navy forces. 
Your only advantage is surprise. 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple M*, Applesoft* BASIC, 16K Memory beyond BASIC Pet*, 16K Memory 
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LONE STAR CORRAL 



LONE STA R CORRAL is an 
S- 80 program requiring Level II 
and 16 K. 
by Robert C. Hall III 

The sun is starting to set over 
the far ridge; the only thing 
keeping you from supper is one 
last horse to fence-in for the night. 

But he's a fast horse; he's so 
fast that you know where he was 
just a moment ago, and not now. 
You do know however, that he 
must be in one of the spots next to 
where he was last. 

For example, if the "O" shows 

where the horse was last, then the 

"X" shows where the horse could 

be now. 

XXX 

X O X 

XXX 

Note: The horse can't move into a 
square with a fence already in it! 

The object of this game is to 
completely box the horse in so that 
he can't make a move. This must 
be done in the fewest number of 
moves without placing a section of 
fence on the horse thus hurting 
him. Good luck, partner! 

VARIABLE LIST 

M (11,11) = Memory Board. This 
array is used to store the occupied 
spots. Values this array can con- 
tain are for an empty spot and 1 
for an occupied spot. 
HX = The X location of the horse 
(from to 11) 

HY = The Y location of the horse 
(from to 11) 

WX = The X location of the 
fence (from to 11) 
WY = The Y location of the fence 
(from to 11) 

X = Input letter flag (X = or 
X = l) 

Y = Input number flag (Y = or 

Y = l) 

Nl = ASCII value of the input 
Q = Random X move of the horse 
(from -1 to +1) 

W = Random Y move of the 
horse (from -1 to +1) 
A,B,T = Loop values 
AS = INKEYS variable 
34 



soFTSiDE presents: 

nmnnmiminHiMii 

n THE LONE STAR CORRAL m 
nxnxiiixxixauxxxunxi 

BY 
ROBERT C. HALL, HI 
BLACKSBURG, OGINIA 

Line 1! Executes the instruction subroutine. Printing 
CHR$(28) changes the double width letters to single 
width letters. Execi.ites the graphic subroutine to 
occupy tine required to dinensiori arrays and initial- 
ize variables. 

1 EOSUB1000:PRINTCHR$(28);!GOSUB80fl 
5 DIM M(ll,ll) 

8 RD1ARK n MifiAY H(I,J) = HEHORY BOARD n 

Line 91 Initialize the out-of-bounds spots on the Hetwry board. 

9 FORA=0TOli:M(A,0)=i;M(A,ll)=i:M(0,A)=i:M(ll,A)=i;fEXTA 
Line lO; Start of gane loop. Wipes the playing board cle^r. 

10 FORA=lTO10:FORe=lTO10:M(A,B)=fl!NEXTB,A 

19 REMARK m HX AND HY ARE TIC LOCAHON OF THE HORSE n 

Line 20! Starting location of horse is randomly chosen. 

20 HX=RND(10)!HY=RM)(10) 

100 aSIRDWRX H DRA« THE BOARD m 

Lines 11(1-230! Draw the board on the screen. 

110 PRINTCHi:$(23>!" tt UM. STAR CORRAL n" 

120 PRINT" -0-1-2-3-1-5-6-7-8-9-" 

130 F0RI=«5T071:PRINT" "CHR$(I)":"TAB(23)":"CHR«(I):tCXT 

230 PRINT" -0-1-2-3-1-5-6-7-8-9-" 

Line 231! Draw an "0" to represent the position of the horse. 

231 PRINTe68+(61«HX)+(1iiHY),"0"; 

Line 233! Playing loop (wax. tines is 99 (idiot proofing)). 
Executes the subroutine to find the next legal «ove 
for the horse. 

233 F0RT=lTO99!GOStJB690 

231 PRINT0932, "HORSE WAS";:PRINTe998,"AT (";CH»(61+HX);RIGHT$(S 

TR«(HY-1),1);")"; 

Line 235! Set up irfiut pronpt. 

235 PRINTe896, "ENTER MOI^";!PRM8962,STRING»(2,176);:PRIMTe960, 

linii * 
• I 

237 REMARK n INPUT "R" TO EM) GAME « 

239 ROttRK H GET PLAYERS MOt AM) CHECK FOR BACKSPACE n 



Line 2101 Cofiplex irput routine that scans keyboard for input. 
Once a key is hit, a check is nade to see if it was a 
backspace or a resignation. If a backspace is detected, 
input variables are set to null, stars on screen, wait, 
then 90 back to the input pronpt. If a resignation is 
detected, 90 print Lose nessage. 

210 A$=INKEY$!FA»=""THEN240ELSEIFASC(Ai)=8THENX=0:Y=li:i$="":PRI 
NTe960,"?ii";:FORn=lTO100:NEXnT:GOTO235ELS£IFA$="R"THEN30Q 
219 REMARK « EDH ALL N»H)ESCRIPT KEYS OUT OF WUT « 

Line 250! Save the ASCII value of the input. Then check for a 
letter input by seeing if a letter has already been 
entered (X=0 no, X=l yes). If a letter hasri't been 
entered and the input IS a letter, theri set the letter 
input flag, calculate the screen position and print 
the input on the screeri. 

250 N1=ASC(A$):IFX=0ANDN1>6'««DN1<75THEM«=N1-61:X=1:PRINTCH»(N 

d; 

Lire 260! Sa«e as Line 250 except the check is for a no«ber. 

260 IFY=flANDNlM7AM)Nl<58THENWY=Nl-V:Y=i:F1?INTCHR$(Nl); 

269 REMARK n HAVE BOTH VALUES BEEN ENTERED m 

Line 270! If both inputs have beer, entered then the calue of 
this seldod (.ised BASIC fijrctiori will be 3. Thus if the 
ir«iut is ircoMplete, return to the input routire. 

270 IFPOS(0)<3THEN240 

271 REMARK «» MOVE Tl£ HORSE AM) POSITION FENCE h 

Lires 275-280! Move the horse and set the fence. 

275 PRINTe68+(61iHX)+(1xHY)," "J 

276 hx=hx+q:hy=hy+w 

277 PRINTe68+(6t)«HX)+(1iHY),"0";;REM m HORSE LAST POSUION n 
280 PRINTI»66+(61xHX)+(1iWY),CHR<(110)CH<$(191)CHR»(H0);:R£M « 
FENCE H 

Lire 287; Clear the irput flags. Set the fence oti the rtefwry 
board. The horse canrjot go into spot coritaining a 1. 
Then check, if the fence was placed in the sawe spot as 
the horse. If so, print the Lose nessage. 

287 X=0:Y=0:M(HX,MY)=i:iF(HX=HX)AND(WY=HY)Tf€N300 

Lire 290 : Continue with the rext «ove. 

290 NEXTT 

Lines 300-305: Clear the bottoH two lires and print the Lose 
Message. Execute the proMpt-wait subroutire, then start 
a riew gane. 

300 PRINT0896,CHR«(3O):F1^'INT09O6,"TOO BAD - YOU LOSE",* 
305 F'RINTe960,CH«(30);:GOSUe9998!as:GOTO10 
659 REMARK xi SEE IF HORSE fttS A VALID MOVE ix 

Lines 690-710! This subroutire finds a new wove for the horse. 

Lire 690! Checks the spots which surrourid the horse. If a spot 
cari't be fo<jrid then player wins. This is relayed to the 
player and the pronpt-wait subroutine is executed. Then 
a rieu gane. 



690 FORA=-lT01STEP2!FORB=-lTOi:iFM(HX+A,HY+e)=OT>CN700ELSENEXTB, 
A:FORA=-lTOlSTEP2;FM(HX,HY+A)=0T}CN700ELS£NEXTAiPRINTe896,CHR$( 
30);!PRINT?901,"YOU WIN IN"!T-i;"Ma€S";:GOT0305 

699 REfV«K XI FIND A NEW SPOT FOR HORSE u 

Lire 700! Pick two randon nunbers between -1 and 1. Both 
nunbers carnot be zero. 

700 0=RND(3)-2!W=RND(3)-2:iFQ=OAND«=OTHEN7flO 

Lire 710! Prohibits out-of-bounds fioves by checking if the 
riew location woijld have a value less than 1 or great- 
er than 10. 

710 IFAeS( (HX+Q)-5.5)>1.50RAeS( (HY+«)-5.5)H.5T}CN700 
Line 720! Check if the new location is already occupied. 

720 IFM(HX+Q,HY+H)=1THEN700 
Lire 710! If all of the above tests are passed then return. 

710 RETURtJ 

799 REM^«K xx GRAPHICS xx NOTE! USE Da#(-ARROH ON LOSS 

EM)ING WTH A QUOTE MARK 

Lines 800-860! Graphics subroi.itire. The use of the down arrow 
on sohe lires saves havirig to add a 
Cm*(13)+STRING»(XX,8) 

800 PRINT0262,C«<$(188);STRING»(8,131);CHR»(11O);CHR*(176);" 
";CHR$(188);STRING$(3,110);STRING$(7,131);STRING*(1,110);CHR«(1 

91);STRTNG*(2,110);STR'ING»(2,176);" 
";Ctf;$(113);STRING$(1,110);CHR$(188);STRING*(10,110)iCHR»(188);C 

fi«(ii3); 

810 F'RINTSTRING$(2,110);C*<(113);" 

";cHR»(i9i);" ";cHR$(i88);cHR«(i32);" ";cHR»(i3i);" ";c 

HR1(191);CHR1(111);" 

";cHR*(i9i);" ";cHR'*(i3i);c«<»(i29);" ";chr*(172);string 

$(Z,176);CHR*(191);CHR*(131);" 

";CHRi(113);CHR-$(188); 
820 PRINTCHR*(176);" ";CHR$(176);CHR$(188);CHR*(113)i" 

";CHR'»(191);" ";CHR1(191)!" 

";CHR$(176);CHR${188);Ctf($(113);CHR<(131);" ";CHR»(131) 

;CHR»C113);CHR$(188);CHR$(176); 

830 PRINT(?311,CHR'»(152);Ct*;$(165);CHR«(16fl);CHR*(161);a#»<26);S 
TRING«(6,Z1);CHR'*(160);CHR'$(151);CHR»(110);CHV«(163);CHR$(135);C 
H;:*(130);CHRi(156);CHR$(111);CHR$(26);STRING$(10,21);CHR«(160);C 
HR$(110);CHR*(129);" ";CHR$(176);" ";CHR$(130);CHR$(118); 
810 F1^INTCHR$(26);STRING»(13,21);C««(160);CHR«(110);CHR*(129);" 
";CHR«(160);" ";CHR$(170);C*'$(26);STRING»(15,21)!CHR$(16 
0);CHRi(110);CHR'*(129);" ";CHR»(130);CHR*(188);CH<$(156);CHR$( 

iio);cHR<(i3i);cHR$(i29);" ";cHR*(ii9);cm$(26); 

850 PRIKTSTRING*(17,21);CHR$(171);C«»(115)JCHR$(110);" "ICHRtd 
;6);CHR5(152);CHR$(110);CH«(163);CHR$(151);" ";CHR»(170); 

CHR«(26);STRING»(16,21)!CHR«(130){STRING$(2,131);" ";CHR«(160)}C 
HR»(110)!CHR*(129);" ";CHR$(173);STRING$(15,21); 

860 PRINTCHR«(176);CHR$(110);CHR$(129);!RETURN 
999 REMARK xi INSTRUCTIONS xi 



continued on page 75 
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ADVENTURER'S GUIDEBOOK 




by James Garon 

It is contrary to the code of the 
True Adventurer to give specific 
and unsohcited hints to fellow 
adventurers. However, some 
general hints which can be applied 
to almost any adventure might 
perhaps be appreciated. Three 
topics come to mind: shorthand, 
maps and mazes. 

SHORTHAND 

Many people work needlessly 
hard at their adventures, especially 
when the keyboard they are using 
is afflicted with "keybounce". This 
is the phenomena of typing what 
you think is SLAY DRAGON, 
only to find - just after pressing 
"Enter" or "Return" - that you 
really typed "SSLLAY 
DRAGOON". The computer 
makes doubting remarks about 
your ancestry, and you must retype 
the command. Most authors of 
adventure programs have provided 
the user with a useful shorthand. 
For instance, in all of Scott 
Adams' adventures as well as the 
"original" Colossal Cave adventure 
from Microsoft, the computer only 
looks at the first few letters of each 
word. The chart shows whether 
three or four letters are required. 
This means that the computer will 
respond to "SLA DRA"just as if 
you had typed "SLAY DRAGON" 
(or "SLANDER DRANOFACE," 
for that matter). Shorthand can 
save you much time and helps 
avoid typing mistakes. 

In addition to 3- or 4-letter 
shorthand, you can often use single 
letter commands for movement. 
For "GO NORTH", you could, of 
course, use "GO NOR", but it is 
much easier to simply type "N" 
(caution: "GO N" and "NORTH" 
do NOT work in Scott's 
programs). Specifically, N, S, E, 
W, U, D will send you in the four 
main compass directions plus UP 
and DOWN. 

While Microsoft allows "INVE" 
as the only abbreviation for 
"TAKE INVENTORY" (to see 
what you are currently carrying), 
Scott permits the use of "1" for this 
purpose. 

36 



In Microsoft's Adventure there 
are a few other fascinating features. 
In the case of most two-word 
sentences, you may enter the words 
in either order. Thus, "COIN 
GET" has the same effect as "GET 
COIN". Perhaps more useful is the 
fact that you may enter up to 32 
characters at a time. In these 32 
characters, you may string two- 
word sentences together as in the 
following: GO E GET BIRD GO 
N GO E SCOR. The final 
command in such a string may be 
a one-word command. In this 
example we have used the four- 
letter abbreviation for SCORE. Of 
course, you may still enter the 
commands one-at-a-time, if you 
wish: 
GO E 

GET BIRD 
GON 
GO E 
SCOR 

waiting for the computer's response 
after each command. Depending 
on your current situation, you may 
decide to use both methods at 
different times in the adventure. 
For instance, if nasty dwarves have 
been throwing things at you lately, 
you would probably wish to move 
about slowly and cautiously, one 
command at a time. But if you are 
starting over (perhaps having 
recently been killed in the cave), 
you may wish to quickly skim 
through the first dozen or so 
moves while things are still relatively 
safe. If you've memorized an 
opening sequence of moves, it is 
handy to type in several moves at a 
time. (Notice that Colossal Cave 
understands either "GO N" or "N", 
but to make use of the 32 character 
command line, you must use "GO 
N"). 

There is a somewhat tricky 
concept in Colossal Cave: to go in 
certain directions shorthand is not 
just a convenience; it is mandatory. 
Since the cave is quite convoluted 
in places, you sometimes need to 
go between two compass 
directions; for instance, southeast 
or northwest. But how is this 
possible when the computer ignores 
all but the first four characters of 



each word? The answer is: 
shorthand! In this case, you use 
SE, or NW, etc. 

MAPS 

"You can get lost without a 
map." Obvious, but true. Yet I 
have watched beginning 
adventurers wander around 
aimlessly, wasting precious turns, 
because they didn't think to record 
where they'd been. You may 
already have a map-making system 
which works well for you. If not, 
you may be able to use some tips 
which have proved helpful to me. 

First of all, never start an 
adventure without a pencil and lots 
of paper. On your map, you'll want 
to remind yourself where you 
found various objects. I place 
objects (in parentheses) in the 
room in which I first find them. 
That way, if I die and have to start 
over, I can collect them without 
having to hunt for them. For those 
adventures which offer 6 primary 
directions (as do Scott Adams'), I 
use a special compass: 

6-way compass 



f UP 




/' 






/ 



W € 



A sample portion of a fictional 
adventure map is included at the 
end of this article. 

This map gives a variety of 
important information. For 
instance, you go West from the 
Barbershop (where the flute is 
located) to get to the Swimming 
Pool (where the dragon is doing 
the backstroke). Moving North 



from the Pool takes you to the 
Supply Closet, but to get back to 
the Pool, you must go West. 
Notice that a trip to the dungeon is 
a one- way proposition. 

I invariably find that I need to 
redraw my map several times as I 
go along (that's what the extra 
sheets of paper were for!). As you 
discover more rooms, you may find 
that there isn't enough room to 
show them on your map. Don't be 
afraid to start over!. 

MAZES 

When you've mastered your 
shorthand and earned your merit 
badge in cartography, you may 
think you are prepared for any 
adventure, but there is always the 
danger of finding yourself suddenly 
in a maze. The inexperienced 
adventurer may tend to panic at 
this point and begin running off in 
all directions, getting more and 
more lost in the process. Many 
Mazes consist of lots of different 
rooms, all labeled identically. This 



makes it nearly impossible to tell if 
you are moving from room to 
room or merely standing still. 

Whenever you locate a maze, the 
first thing to do is try to retrace 
your last movement. If that doesn't 
get you out of the maze, then the 
best thing to do is to quit and 
begin the adventure again. Using 
your map, which is also labeled to 
show the location of all important 
objects, make your way back to the 
spot where you entered the maze. 
On your way, collect as many 
objects as you can carry. Carefully 
enter the maze, and set down one 
of your objects. Now try to leave 
the room. 

If the object you dropped is still 
in view, you know that the 
direction you moved in leads back 
to the same room. Keep trying 
different directions until the 
dropped object disappears. Now 
drop another. Continue in this way 
(naturally drawing a map of the 
maze as you go along), and you 



will soon get a feeling for how the 
various rooms of the maze are 
connected. 

From your maze-map, you can 
then determine what pattern of 
directions (such as "N", "W", "S", 
"E") will get you through the maze 
in the fewest turns. In some of the 
larger mazes, you may need to 
make several mapping expeditions. 
If you can at least find an exit on 
your initial exploration, you can 
leave the maze and return with 
another armload of objects with 
which to explore further. 

Well, that's about it for this 
month. If you've already played 
adventures, you know the unique 
thrill they produce. If you have 
never played adventure, I really 
envy you. For you, all the joy of 
discovery and the unique challenge 
of adventuring still lie ahead. All 
of the classic adventures are just 
waiting for you.... ^^ 



Title 


Letters 


Object 


#1 Adventureland 


3 


13 treasures 


#2 Pirate's Cove 


3 


2 treasures 


#3 Mission Impossible 


3 


Save the Nuclear Reactor 


#4 The Count 


3 


Kill Count Dracula 


#5 Voodoo Castle 


3 


Remove a Curse 


#6 Strange Odyssey 


4 


Treasures from Alien Universes 


#7 Mystery Fun House 


4 


Recover stolen Spy Plans 


#8 Pyramid of Doom 


3 


13 treasures 


#9 Ghost Town 


4 


13 treasures 


Microsoft Adventure 


4 


15 treasures/Grand Master 
Puzzle 





supply 
closet 
(evening 
gown) 



spaceship 
(alien glove) 




ill 



chapel 
(organ) 



Swimming 

pool 
(dragon) 



,/Ci 



■m 




Barbershop 
(Hute) 



fl 



Dungeon 
(pickle) 






m 







Hole 
in floor 



Fictional Map 



Cave 
entrance 
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From 
Peripherals Unlimited 




FORM LETTER 

Combines files from the TEXT EDITOR and 
MAILING LIST programs to enable the user 
to print out customized letters. A model letter 
is created using the TEXT EDITOR and 
special character lines within the body of the 
letter. When FORM LETTER is run, it 
replaces these special characters by 
information contained in the MAILING LIST 
records. For example, if the model letter 
contains "Dear $FIRSTNAME," and the 
MAILING LIST has an entry for 'John Jones' 
then the finished letter will read "Dear John". 
Letters can be printed out for any range of 
records: last names beginning with A through 
K, or Zip codes 60000 through 70000, or 
records with a specific code word. 48K 
Applesoft firmware and disk. $24.95 

DAN'S DISK 
UTILITIES 

Allows the user to directly examine and/or 
modify data on any track and sector of a 
diskette. Included with DDU is EXPUNGE, 
which can remove the DOS from a disk 
freeing up approximately lOK of disk space 
that could not otherwise be used. SINGLE 
DISK COPY is a copy program intended for 
those who do not have two drives, but still 
need to copy diskettes for back-up-purposes. 
Requires any size Apple with Integer Basic 
and a disk. $39.95 



TEXT EDITOR 

Fast, simple-to-use program designed for the 
small business or personal user. Text is 
processed in memory on a line by line basis. 
Some of its features include margin adjust, 
search, replace, and line centering. The 
program will hold about five printed pages in 
memory at a time. In addition it can be used 
in conjunction with the Mailing List and Form 
Letter program to create personalized letters. 
Requires 48K Applesoft firmware and disk. 
$64.95 




MAILING LIST 

Holds up to 500 names and addresses per 
diskette. You can split files between diskettes, 
permitting you to store A-K on one disk, L-R 
on another, and S-Z on a third. 
Search and locate any name within 3 
seconds. Entries can be sorted alphabetically 
or by zip code within 2 seconds for a 
complete diskette. It features user control of 
printed output recognition of duplicate 
names, and 7 entry fields. 
This program may be used with the FORM 
LETTER program to print out personalized 
letters. Requires 48K disk. $39.95 



1-S00-25S-1790 

(In NH call 673-5144) 
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LEARN MICRO-COMPUTERS 

A new multimedia information pacl<age. Includes text 
("Understanding Microcomputers") plus high-quality 
cassette. For the beginnerjust starting in microcomputers. 
Covers all the basics quickly, easily and enjoyably. 
Companion tape includes chapter-by-chapter synopsis of 
the book. Great new idea for self-study. $14.95 plus $1 

TAKE MY COMPUTER . . . PLEASE! 

An uproariously funny book about the true-life 
misadventures of author Steve Ciarcia and his computer's 
inability to cooperate. Hardcover. $5.95 plus $1 

MICROCOMPUTER POTPOURRI 

A pocket-sized reference for the beginner. Has a really 
great glossary covering all the jargon. Full digest on 
understanding microcomputers. $3.95 plus $1 

CALCULATING WITH BASIC 

Use your computer to calculate home mortgage 
payments, interest rates, payback periods and more. 
Complete routines already worked out for problem solving 
using BASIC language. Also includes mathematics, 
finance and statistics, mechanical engineering and 
electronics. $8.95 plus $1 

PERSONAL INFORMATION MANAGEMENT SYSTEM 

When you're in business you've got a personal stake in 
how information is managed. That's because information 
is your key to success. PIMS will allow you to unleash the 
power of a microcomputer -and you don't have to become 
a programmer first. Use a computer for accounts 
receivable . . . accounts payable . . . maintain inventory 
records . . run a mailing list . . .keep track of credit charges. 
These are just a few of the many things you can do with 
PIMS. It is a ready-to-use data base management program 
for computers like the Commodore PET and Radio Shack 
TRS-80. You can define and construct your own data 
bases. Each record can contain up to ten fields. You can 
search, list and sort. There's even a command that let's you 
sum columns of numbers. PIMS provides a valuable 
introduction to data base management. Complete source 
listing. $11.95 plus $1 

APL - AN INTERACTIVE APPROACH 

This revised second edition of APL - An Interactive 
Approach has been renamed to reflect the fact that several 
versions of APL are currently being offered. In recognition 
of APL's growing use in business applications, more 
examples have been included, and the body of the text 
itself has undergone a modest shift in orientation toward 
commercial uses of APL. 

Additional functions and features now available in both 
the IBM and Scientific Time Sharing implementations 
have been included in this edition, and the chapters on 
workspace management and function definition have 
been substantially rewritten providing additional graphic 
aids to the student. Where appropriate, sections have been 
included ondistinctivefeaturesof the IBM 51 00 Computer. 

For this edition, nearly all the example functions in the 
text have been placed in a workspace named 1 CLASS. If 
your APL system lacks this workspace, it may be obtained 
from Scientific Time Sharing Corporation. $16.95 plus 
$3. 

LITTLE BOOK OF BASIC STYLE 

Ideal reference for BASIC programmer, junior high to 
research scientist. Indexed, illustrated, 151 pages. By 
John M. Nevison $5.95 plus $1 



Z-80 AND 8080 ASSEMBLY LANGUAGE 
PROGRAMMING 

The best introduction to assembly language we sell. You 
should have experience in BASIC. By Kathe Spracklen 
$7.95 plus $1 

INTRODUCTION TO LOW RESOLUTION GRAPHICS 

Covers PET, TRS-80, Apple II. How to draw lines, create 
shapes, animated figures, charts. $11.95 plus $1 

THE BASIC HANDBOOK 

A definite reference/idea book. Explains over 50 favorite 
versions of the BASICIanguage in detail as used in micros, 
minis, and mainframes. Everything you need to know 
about the most important statements, functions, 
operators, and commands. From the same author as the 
TRS-80 Users/Learners Manual. $14.95 plus $1 

Z80 INSTRUCTION HANDBOOK 

Convenient pocket-size manual describes Z80 
capabilities in easy-to-understand terms. Designed as a 
practical reference to mnemonics, machine codings, 
usage. For programmers of every level - beginner to 
professional - anyone working in Z80 machine or 
assembler language. Appendixed. $5.95 plus $1. 

SARGON HANDBOOK 

Complete documentation covering all algorithms in 
Sargon can be found in this guide book. Contains 
complete table of contents, block diagram of the program, 
four part introduction, Z-80 listing, index to subroutines. 
Fully annotated. $15.95 plus $1 

TRS-80 ASSEMBLY LANGUAGE PROGRAMMING 

Covers Z-80, and introduction to Assembly Language, 
the Radio Shack Editor/Assembler and T-Bug, and 
debugging methods; also explains how to move data, the 
use of arithmetic, compare, logic, and bit operators, shifts, 
strings, tables, input and output, and 12 commonly used 
subroutines. Well indexed and illustrated. $3.95 plus $1 

THE SECRET GUIDE TO COMPUTERS 

By Russ Walters A quickie course on computers. $5.95 
plus $1 

Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK 

Over 100 usable subroutines, plus how to use them. 
$15.95 plus $1 

TRS-80 DISK AND OTHER MYSTERIES 

The serious programmers' guide to Disk BASIC and the 
wonders of NEWDOS+. $22.95 plus $1 

6502 SOFTWARE GOURMET GUIDE AND COOKBOOK 

Includes instruction set, floating point and decimal 
arithmetic, search and sort routines, and more. $12.95 
plus $1 

TRS-80 INTERFACING 

What you need to know to connect your TRS-80 to the 
world. Assumes knowledge of some machine language 
programming. $8.95 plus$1. 

PATHWAYS THROUGH THE ROM 

The definitive guide to Level II BASIC. Includes Super 
Map by Fuller Software. The TRS-80 Disassembled 
Handbook by Robert Richardson, HexMem by J. Philip, Z- 
80 Disassembler by George Blank and DOS Map by John 
Hartford. $19.95 plus $1 

LEARNING LEVEL II 

The User's Guide to Radio Shack Level II BASIC. 
$15.95 plus $1 



To order: Call Toll-free 1 -800-258-1790 on nh aii (603)673-5144) 

The Software t*chinge & HirdStde (Div of RobitaiHe & Sonj. interprties. Inc J, SoflSide Publicition§ 
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by Ron Potkin 

A Wargamer's delight! Throw away your 

pencils, charts* and dice. Let the computer 

do the dirty work while you concentrate on 

strategy. Kriegspiel II is a much improved, 

two-player version of the original— with 

machine language routines for extra speed. 

Select one of 9,999 scenarios including 

towns, tanks, and terrain. Choose the number 

of mountains (up to 200), then sit back and 

watch as the computer generates your 31 x 

32 game board, sets up the pieces, the towns, 

the mountains and a river. 

Even the weather will become an important 

factor as play proceeds. To win, you must 

enter the Capitol City of your opponent (or 

reduce his fighting strength below half of 

your own). 



KRIEGSPIEL II 



Level II 16K$14.95 (cassette 
version only) 



*Combat Resolution Tables, Basic Turn 
Allowances, Terrain Effects Charts, etc. 



To Order 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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SOUND FOR YOUR 
COMPUTER 



r 



by James Hagani 

One fantastic feature of most 
home micro-computers is graphics. 
Extensive use of graphics can make 
even a drab game of hi-low more 
interesting. Include some cute 
sound effects and the program can 
become truly captivating. 
Recently, most programs for the 
S-80, have made use of sound via 
several different routines. Apple 
and Atari programs usually have 
sound too. If you own any of 
these machines, you should not be 
afraid of sound. In fact the use of 
sound should be as "basic" as a 
simple FOR-NEXT loop. 

Each month, in this column, we 
will bring you simple subroutines 
which can be added to actual 
programs to enhance their appeal. 
This month we'll start with horses. 
Most everyone has a horse racing 
program, but chances are it lacks 
one important element of realism, 
sound. Just imagine seeing and 
hearing your longshot race his way 
to the finish line. 

The S-80 subroutine uses a 
machine language sound generator 
which is poked into memory from 
BASIC. By calling different USR 
numbers, different sounds are 
created. 

The Atari subroutine is much 
more simple. By using the 
versatile "SOUND" command, 
unique sounds are generated. 

The Apple subroutine consists of 
a PEEK statement that produces a 
short click. When many of them 
are strung in a series, longer clicks 
are formed. 

You no longer have to feel 
powerless when trying to employ 
this amazing and quite simple 
feature. With our help, you'll be, 
from now on, truly Safe In Sound. 



S-80 

5 REM HORSE'S GRAPHICS AM) SOUM) ROUTINE BY JWES m/ta 

10 Bl$=CHR$(136)+Of»(167)+CH»(131)+CH»(155)+CHR*(163)+CHR$(13 

2) 

20 FOR x=ito8:reado:a»=a«+chr$(d+ioo):next 

30 for X=lT08:READO:Al$=Al$+CH»(D+lflO):ttXT 

10 MM»="MAKE SURE TO PUT 27 SPACES!" 

50 I=V(WPTR(hM«):j=PEEK(I+l)+Z56iPEEK(I+2) 

60 FOR k=jtoj+26:readx:pokek,x:next 

70 F P£EK(14396)=201POKE16526,PEEK(I+1):POKE16527,PEEK(I+2):GOT 

OlOO 

75 C«D"T".*[)EFUSR0=PEEK(I+1)+256iPEEK(I+2)!POKE11308,0 

80 DATA 31,81,76,76,76,81,59,91,52,31,67,31,55,31,61,28 

90 DATA 205,127,10,77,68,62,1,105,211,255,15,32,253,60 

95 DATA 105,211,255,15,32,253,13,16,238,175,211,255,201 

100 Y=Y+i:CLS;PRINTeY,A$:PRINTeY+61,Al» 

110 X=USR(580):GOSUB13fl:X=USR(590):GOSUB130!PRINTeY+6i;Bl» 

120 X=USR(600):GOSUei30:X=U5R(610):GOSUB130:GOSUei30:GOSUB100 

130 forz=itoi7:next:return 



ATARI 
1 RBI HORSE ItXETENT BY J«tS m&WI 

5 awHics e srrcoLOR 2,0,0 poke 752,1 ? 

"SPEED OF HORSE (0-30)"; IWVT Sf-lf SP 
<0 OR SP>38 THEN RUh 
15 FOR X=l TO 27 FOR Y'l TO SF/2 t€XT Y 

29 POSITION .X,2^7 " \ /-I " 

38 POSITION X,3 ? " I _ol ■ 

« POSITION X,4 '• " I /I I " 

98 POSITICN X,5 7 • / \ / \C_3 " 

55 FOR Y=l TO SP/2 NEXT YGOSUB 100 

68 POSITICN X,5 7 " < > < >C_3 " GOSUe 1 

e8-fCXT XRUN 

188 Sa*C 0,60,6, 10:SOIJ«J 0,0,0,0 FOR X'i 

=1 TO 15+SP/6^NEXT XX SOUND 1,60,6,8 

105 SOHi 1,0,0,0 FOR XX=1 TO 15+£P/6:NE 

XT XXRETURN 



APPLESOFT 

5 FOR Y=l TO 4 

le COSie 30 

15 FOR X=l TO 50-Y*5 

28 ^€XT X:NEXT Y 

25 FOR X=l TO 200= NEXT X^GOTO 5 

38 X=PEEKX -16336 )X=PEEK( -16336 ) = X=PEEK< 

-16336 ) = X=PEEK( -16336 ) X=PEEK( -16336 ) 

35 RETURN 

48 END 
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SLEUTH 



SLEUTH is an Atari program 
requiring at least an 8K memory. 



by Paul Johnson 

Gymnastic competition for a 
meeting of minds! Test your 
mental baud rate. 

Sleuth is a computer adaptation 
of a popular party game. The 
computer displays a number of 
letters on the screen for three 
minutes. Players form words using 
adjacent letters. At the end of three 
minutes, the computer stops the 
game and the players compare 
their lists. Any words found by 
more than one player are 
eliminated, and players then keep 
score according to the number of 
letters in each word left on their 
list. 

Programmers will find this game 
interesting for its demonstration of 
the use of the frame counter in the 
Atari computer as a real time 
clock. 



18 REM — SLEUTH BY PAUL F. JOHNSON 

I = Shift clear for clear screen 

28 ? "XXTPUTER SLEUTH" 
22 FOR T=l TO ISSe^NEXT T 

L$ - Holds the letter 

vocabulary, selected to give a good 

word distribution. D$ is used to 

select letters for the display. Q$ is 

used for user input. 

38 Din L«(%),Df<2).Q»(ie> 

46 LS^'AnOBJQFEHIYaERACStKGLEYVDSNOEFBi; 

XI0PECAOnYLTBIASLTPl£KNTaJOTIUENGRaiflHSL 

UUIGRT0CAIf»EOA2lPHNSEr 

45G0SUB 1888 

f - Shift clear for clear screen 

58 PRINT "> COTPUTER SLEUTH" 

68 ? ? ^? :? "Enter 1 for SLEUTH,"^? "o 
r 2 for BIG SLEUTH " ? ■■> "Yar choice"; 



TRl*> 8 

? ">":GOTO 368 

? "J'^GDTO 368 




78 TRflP 7e^INPUT S 
75 IF S=l THEN S=4 
88 IF S=2 THEN S=5 
98 GOTO 58 
188 GRAPHICS 8 
lie SETCOLOR i,e.s 



Starting position for cursor. 

198 POSITION 2,14 
288 FOR R=l TO S 

Position cursor for next letter. 

286 IF S=4 THEN PRINT " "; 
286 IF S=5 T>CN PRINT " '; 
218 FOR C=l TO S 

Generate Random Sound, 
use same random seed to select 
number. 

228 I''INT(RKXe)«96Hl 
225 SOIH) 8,I,ie,8 

Select letter. 

238 D»«" "tDKl/lM^M) 

Add u if letter is Q. 

248 IF L«I,I>="Q" TJCN D»(2,2>="U" 

Print letter. 

258 PRINT Dt; 

255 FW T=l TO 18 NEXT T 

268 hCXT C 

278 ? 

288 hEXT R 

285 SOUO 8,8,8,8 

Graphics 34 - Samcas 
Graphics 2, except screen is not 
cleared. This is a text mode with 
ten rows of twenty double height, 
double width characters using a 
minimum of memory. 



42 



298 GRAPHICS 34 

295 SETCOLOR 8, 8, 8 ^SETCOLOR l,e,13^SETC0 

LOR 2,8,8 

388 PRINT " COTPUTER SLEUTH" 

318 PRINT ^PRINT "TIMER" 

POKE 755,1 - Sets character 
mode register to normal mode. 
Note: If you POKE a 4 into this 
location, all text on the screen will 
be printed upside down. 

328 POKE 755,1 
338 GOSIB 488 

[ = Shift clear for clear screen 

348 QRflPHICS B^PRINT "} SLEUTH SCORING 

TABLE" 

358 QOSUe 888 

355 ? ^? ■ Qu COUfTS AS ONE LETTER. 

■I 

368 ? :? :? :? ? :? "Ptcss RETURN to be 

sin a round" IhPUT Q* = GOTO 188 

488 SEC0M)S=18e 

4ieG0SUB 588 

428 T=TirE 

438 PRINT " "^PRINT IKT(SEC0K)&/68);"^"; 

SECOtCS-INT( SECOHDS/68 )*6e; 

435 IF SECCM5S=18 THEN PRINT ")"i 

448 GOSUe 588 

468 IF SECONDS>0 THEN SEC0«)S=SEC0KB^1 ■■ 

GOTO 418 

478 RETURN 

500 Real time clock - The Atari 
computers use memory locations 
18, 19 and 20 for a one-sixtieth of 
a second count that is updated by 
the television frame counter. This 
is stored as a three-byte binary 
number, with the most significant 
bit in location 18 and the least 
significant bit in location 20. Each 
count in location 20 represents 
one-sixtieth of a second. Each 
count in location 19 represents 
4.266 seconds, and each count in 
location 18 represents 1092.266 
seconds, or about 18.2 minutes. If 
you wish to reset the real time 
clock, simply poke into each 
location. 

588 TIfE=INT<(P£EK(18)*65536+PEEK<19)«25 

6+PEEK(28)).''68) 

518 IF TinE=T Tf€N 588 

528 RETURN 

888 REn — POINT TABLE — 

818 IF S=5 T)CN 858 

828 ? ^? "NUrCER OF LETTERS^ 3 4 5 6 7 8 

+" 

838 ? " • 

848 ? "POINTS' 11235 11"^ 

RETURN 

858 ? ? "NUCER OF LETTERS' 4 5 6 7 St" 



continued from previous page 



866 ' " • 

878 ? "POINTS^ 12 3 5 7' 

886 RETURN 

1060 RBI — INSTRXTIONS — 

I =Shift clear for clear screen 

leie PRIHT ") 00 YOU t€ED INSTRUCTIONS"; 
ItfUT Of 
1026 IF Qt>"" T)CN IF 0»<1,1)="Y' TWN 1 
646 
1638 RETURN 



Shift clear for clear screen 



1648 ? '}SLEUTH is a Nord 9Me for two" 
1658 ? 'or more p1i>«rs. The computer wi 
11" 

1668 ? "randoala pick letters ar¥l vrvna 
e" 

1678 ? 't>«ft in a s'tuare like this" 
1896 ? ? • U T A C" 
1108 ? ? " E F Qu" 
1110 ? ? " Y F J P" 
1128 ? ? • A S D T" 

1130 ? 7 'You hai^ 3 minutes to trite d 
om' 

1148 ? "as m»ra words as i«u can find in 
the" 

use ? "9%»are. For example- CAT, kCT, F 
ATE" 

1168 ? 'and QUAFFS can be fouid aboue " 
1178 7 'As >MU can see> uords must be ma 
dc' 

1180 ? 'of adjacent letters (am) conbina 
tion" 

use ? 'of UP. down, left, risht-and diason 
an." 

1208 7 "You na>« not do«i}1e back and use 
the' 

1210 7 'saaie letter twice in one word <S 
AYS" 

1228 ' "xould be illesan. Press RETURN 
'rlHV^ at 

f = Shift clear for clear screen 

1230 PRINT "}At the end of 3 minutes, ea 
ch plaaer" 

1248 7 "reads his list of words, (m wor 
d" 

1258 7 "that more than one plaaer found 
is" 

1268 7 "crossed off each list, (m word 
s" 

1270 ? "remainins score as follows " 
1288 S=4:G0SUe 886 

1290 7 :7 "Plaa continues intil one plaa 
er" 

1388 ? "reaches 58 points " 
1310 7 7 'BIG SLEUTH is plaaed b» the s 
aae" 

1328 '' 'rules. The letters are arrarsed 
in" 

1348 7 'a 5x5 square and scorins is hard 
er •• 

1358 S=5 GOSUB 888 

1360 7 7 "Besinners should tra th« siiial 
ler" 

1370 •? 'version first Press RETURN 
"i IffUT 0$ 
1388 RETURN 
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A BASIC Compiler in BASIC! 
TINY COMP begins at line 
number 800. Your Source Code 
uses line numbers 1 through 799. 
TINY COMP can compile a subset 
of Level II BASIC. This subset 
includes 26 integer variables, 
GOTO, GOSUB, END, REM, LET, 
*,-, IF, THEN, INKEY$, CLS, 
PRINT® , CHR$. The cassette 
version of TINY COMP adds 
PEEK, POKE, multiply and divide. 

TINYCOMP 

by Dave Bohike 

Supplied with game program 
"3D TIC-TAC-TOE", which uses 
all of the TINY COMP statement 
set and is ready to compile. 

The extensive manual includes 
several sample programs as 
well as thorough documentation 
of this small compiler for those 
who like to know "how things 
work" and for those who might 
wish to EXPAND on TINY COMP's 
capabilities. 

Includes special SYSTEM 
CSAVE program to allow you to 
create tapes of your compiled 
programs. 

Tape version: $19.95 
Disk version $24.95 



TO ORDER TOLL FREE 
1-800-258-1790 

(In NH cill 673-5144) 
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Unlimited Level II USR Calls 



UNLIMITED LEVEL II USR 
CALLS is an S-80 article for Level 
II systems. 

by Charles C. Edwards 

When writing a Level II BASIC, 
program using several machine 
language subroutines, I find it 
annoying to constantly repoke 
locations 16526-16527 with the 
addresses of the routines. So I set 
out to find a way to implement 
multiple machine language 
routines. Any method would have 
to meet the following criteria: 

1. It must not require memory 
size to be set, so that it would be 
independent of the amount of 
memory on the machine. 

2. It must retain the capability 
of passing and returning at least 
one argument. 

I finally came up with the 
following routine: 



CALL 0A7FH 


; GET THE 




ARGUMENT 


PUSH HL 


; GET IN INTO 




IX 


POP IX 




LDL,(IX + 1) 


; GET LOW 




ORDER PART 




OF STRING 




ADDRESS 


LDH,(IX-l-2) 


; GET HIGH 




ORDER PART 




OF STRING 




ADDRESS 


JP (HL) 


; BRANCH TO 




SUBROUTINE 



In order to use this routine, I 
poke 16526-16527 to point to it 
and say in basic, 

"X=USR(VARPTR(S$))" where S$ 
is a string that contains a machine 
language subroutine. This routine 
fetches the address of the string 
and branches to it. The rest of this 
article will show an example of its 
use and how to pass parameters to 
the called subroutine. I have used 
the "white-out" and "left-shift" 
routines from the Level II BASIC 
Manual as these are well-known 
and readily-understood 
subroutines. 

First, we clear some string space 
and get the routine set up: 



r 



10 CLEAR10fl!S»="/////////////":i=PEEK(VW«PTR(S»)+l)+256iiP£EK(Vflfi 
PTR(S«)+2)}F0RJ=n0I+12!READX;Pa<EJ,X:f€XT:Pa<E16526,IAND2K:P0K 
E14527,D(T(I/Z56):MTA205,127,10,229,Z21,225,221, 110, 1,221, 102,2 
,233 



Note that the routine is poked 
into the string rather than using 
string constructs. This is to ensure 
that the string will not be moved 
when string space management 
takes place. However, this is not 
necessary for the other routines. 

Now, set up the "white-out" 
routine: 



20 S0$="":FORI=0TO13:READX:Sfl*=S0»+CHR$(X):itXT:DATA33,0,60,51,l 
91,17,1,40,1,255,3,237,176,201 



Now. the "left shift" routine: 



30 S1«="":FORI=OT07:RE/»X:S1»=S1»+CHR$(X):NEXT:DATA175,203,21,20 
3,20,195,151,10 



Note that we have omitted the 
code for "CALL OA7FH" At run 
time we will insert code to "LD 
HL,(ARG)"at the beginning of the 
routine. The argument will then be 
in the HL register just as if it came 
from the ROM routine at OA7FH. 

Finally, the code to invoke the 
subroutines: 



« x=usr(varptr(so$)):fori=itoiooo;next:cls!D«>ut"Enter integer 
to be left shifted" jn 

50 Sl»=CHR$(33)+CH»(fttND2K)+CHR»(INT(N/254))+Sl»JPRINTUSR(W«P 
TR(S1«)) 



Line 50 contains the code to 
"LD HL,(ARG)". Remember that 
the argument must be in the Z-80 
format of least-significant byte 
first, followed by the most- 
significant byte. It is a simple 
matter to expand on this technique 
to pass several arguments to the 
subroutine. Simply load them into 
the appropriate registers as needed. 
To return an argument, load it into 
HL and "JP OA9AH"just as you 
normally do. 



© 
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" DRAWTOand"HPLOT..TO..r1 




. . .for the TRS-80 
by James Garon 

Both the Atari and the Apple 
computers have the ability to draw 
a line connecting any two graphics 
points. While the TRS-80 cannot 
do this directly, it is possible to 
teach it to connect two points. We 
do this by means of a subroutine. 
The idea behind the subroutine 
comes from a subject which many 
of us remember less than fondly; 
algebra - specifically, the 2-point 
form of the equation for a straight 
line. Those of you who do not wish 
to be reminded of those dear 
delightful school days please skip 
ahead to the actual subroutine. The 
rest of us will make an effort to 
understand the silly thing. 

Recall that an equation for a 
straight line is: 

Y - Yl = M * (X-XI) 
where XI and Yl are the co- 
ordinates of one of the points 
(X1,Y1) on the line, and M is the 
"slope" of the line. (When I was 



teaching this stuff, 1 always had a 
hard time explaining to my class 
just why mathematicians chose the 
letter "M" to represent slope: 
perhaps because it is the first letter 
of the word "mathematics".) Recall 
further that the value of M can be 
found if we know a second point 
on the line, (X2,Y2): 
M=(Y2-Y1) / (X2-X1) 
the so-called "rise-over-run". 
Combining these two formulas 
gives the dreaded "two-point form" 
of the equation of a line: 

Y-Yl = (Y2-Y1)/(X2-X1)*(X- 
XI) 
or, solving for Y, 

Y = Y1 +(Y2-YI)/(X2-X1)*(X 
-XI) 

Now we would like to adapt this 
equation for computer use. To 
increase execution speed, we will 
use one-character variables A, B, 
C, D in place of the less friendly 
XI, Yl, X2, Y2. Our equation for 
Y will now look like this: 

Y = B + (D-B) / (C-A) * (X-A) 



The subroutine, beginning at line 
1000, expects to know the values of 
A, B, C and D. A test is made at 
line 1000 to determine how steep 
the line is going to be. If it is close 
to horizontal, then stepping in the 
X-direction will give our line more 
points (thickness), whereas a line 
which is nearly vertical will have 
more points if we step in the Y- 
direction. Line 1010 causes the 
FOR/ NEXT loop to STEP by +1 
if C is to the right of A, and by -I 
if C is to the left of A. (If C and A 
are equal, the program should have 
gone to line 1 100.) Line 1020 draws 
the actual line. (To see what 
purpose is served by adding +.5, 
try leaving it out.) The last thing 
the subroutine does (line 1 130) is 
to set A and B equal to C and D, 
respectively. This is useful for 
drawing another line which begins 
where the previous line left off. 
We'll see an example of this later. 

continued on page 78 



TONE GENERATION for the 

r 



STEREO GENERATOR 



This article contains a 
description of the machine 
language part of the Stereo 
Generator program elsewhere in 
this issue. 

Dandelion Micro Products 

The simple computer driven tone 
generator (using digital timing) 
toggles a speaker once per unit of 
time which produces a given 
frequency per second, etc. An 
improved tone generator toggles 
the speaker twice per unit of time 
(uptime and downtime). Control of 
the time width between toggles 
(either wide or narrow) gives the 
tone different timbre or voice. 

Elaborate music systems use 
D/A converters, thus eliminating 
the need for digital time loops to 
define frequency. This allows the 
computer more time to perform 
mu''i-voice wave forms, amplitude, 
and envelope control. 

The stereo generator uses simple 



digital timing to compute the 
frequency for two notes, plus 
achieves wave form enveloping. 
This is done as the program 
uniformly varies the time width 
between speaker toggles while 
performing the frequency. The user 
has limited envelope control in the 
lower frequency range, and should 
be able to experiment to find the 
best cycle that accomodates his 
piece of music. He always has the 
option to turn it off altogether and 
play his piece in the single toggle 
mode for two note music. 

The stereo system is achieved by 
reading the cassette out port (LDA 
C020), then using the cassette 
recorder to amplify the signal to 
toggle a second speaker. The 
additional speaker works in 
similiar manner as the 'on board' 
speaker. 

The stereo generator does not 
work with older Apple ll's with 
revision zero boards. This is 



because the zero boards toggle the 
cassette port each time the 'on 
board' speaker is toggled. 

STEREO GENERATOR 
(Machine Language Routines) 

ZERO PAGE LOCATIONS 
NOTE-ONE EQU $6 
NOTE-ONE ENVELOPE EQU $7 
NOTE-TWO EQU $8 
NOTE-TWO ENVELOPE EQU $9 
DURATION-2 EQU 19 
DURATION- 1 EQU lA 
VOICE EQU IB 
D DURATION EQU ID 

Frequencies in 6 and 8 are enveloped 
by 7 and 9. Voice effect is set up 
by 'Initialize Routine' 



continued on page 74 
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ST80'*' has a smart terminal 
package for you ! 



TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 




All four programs include the ability to use an unmodified TRS-80 keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232-C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversions, and line printer output. 



ST80*UC 



Preset parity, word length, and baud rate (regardless of switch settings on the RS-232-C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232-C board, and even spooling of prepared messages on 
tape directly into FORUM 80 using a basic program supplied as a line listing. 4K Level II cassette, $24.95 



ST80 



Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing 
of the RS-232-C or tape spooling. 4K Level II cassette $49.95 



ST80*D 



Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be 
sent directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and 
auto logon. Use it with VTOS 3.1, and get device-driven I/O, job logging,and chaining. 32K disk program, $79.95 



ST80*I1I 



ST-80 D with extra utility programs. 32K disk program, $150.00 



'ST80 is a iradermrk of Lance Micklui Inc. 




Galactic Empire: 



As commander of Galactica's Imperial Forces, you must conquer and hold the 

inhabited worlds of (he galactic system Deploy armies, raise taxes and 

conscript soldiers, gather intelligence, manage resources 



Galactic Trader: 



You have succeeded in uniting the universe. Now you are an ex- 

soidier who must scramble for a living as an intergalactic tramp 

fieighter Outwit the locals at bartering, struggle with the fuel 

cartel, and outmaneuver the big trading monopolies as you seek 

your fortune 

Galactic Revolution: 



The emperor is a bungler and is becoming unpopular Your popularitv is a 

threat, and he is seeking to kill vou Turnabout is fair play, so you start a 

revolutton to unseat htm Will you succeed? 



Each game; 16K Level II 

Cassette; $14 95 

Special - all 3 on disk 32K $39 95 




TO ORDER TOLL FREE 1-800-258-1790 

(In NH call 673-5144) 
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Unlock the power 
of the Z-80 

STAD 

SYMBOLIC TRACE AND DEBUG 

A powerful monitor for the TRS-80 with special 
Debugging. Single Step through the 
machine language programs or set up to 
three breakpoints, and look at this display 
format! 

For tape and disk systems, 16, 32, and 48K on 
one cassette $24.95 



flF BC DE HL IX 

8944 aeee C8ee B77C 643] 

44ee LD R. 93 



IV FlF- BC DE' HL- SP PC 
FFFF 0102 0000 4000 ;;FC0 41FC 4409 



A FIRST(O) LAST(FFFF) 


ASCII dump 


A FIRST 


formatted ASCII dump 


B 


start of branch table 


BVALA 


display In decimal 


B VALA VALB(0) 


hex arithmetic 


C 


check system tape 


FIRST(O) LAST(FFFF) 


dump hex 


E FIRST(0) 


edit memory 


F FIRST LAST VALUE 


find' byte 


G BRKPTS (3 max.) 


set breakpoints, continue 


H FIRST LAST VALUE 


find word 


1 PORT 


read port 


K 


keyboard echo 


L 


load system tape 


L SECTOR MEMORY C0UNT(1) 


load from disk 


M FIRST LAST BLOCK 


move memory 


N 


display symbol table 


NO 


symbol table to tape 


N VALUE 


define value for symbol table 


N FIRST 


define start symbol table 


O PORT VALUE 


write to port 


P 


Initialize memory blocks 


P ENTRY 


write memory blocks and start 


P FIRST LAST 


define a memory block 


FIRST LAST 


calculate checksum 


R 


display / modify registers 


S FIRST LAST OPTION(O) 


disassembler 


T COUNT OPTION(6) 


trace Instructions 


U FIRST COUNT OPTION(O) 


unformatted tape I/O 


V FIRST LAST BLOCK 


verify memory 


W SECTOR MEMORY COUNT(I) write to disk 


X FIRST LAST BLOCK 


exchange memory 


Z FIRST LAST VALUE(0) 


zero memory 



TO ORDER TOLL-FREE; 
1-800-258-1790 

(In NH call 673-5144) 




Put IRV 

on your 

programming 
Staff! 

IRV Is faster than Level II BASIC! More povi/erful than a speed typist! Able to leap 

ten subroutines at a single bound! 

Input shorthand -- one keystroke can enter a whole line! The feature you liked in 

Level III BASIC and T-Short, now with all keys user programmable. You can even 

turn your cassette player on or off with a single keystroke. 

Relocate a line by simply editing the line number -- renumber lines 

individually. 

Video Editor allows cursor oriented editing of your programs. Just move the 

flashing cursor to the line to be edited and type the corrections, insert 

or delete. 
IRV comes with manual and auto-repeat on every key. Machine language tape 

$24.95; on disk $29.95 



To Order TOLL FREE 1-800-258-1790 (in nh can 673-5144) 
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RICOCHET 



S 



RICOCHET is an Atari program 
requiring at least 16 K of memory. 

by Paul Johnson 

One of the classic scenes from 
Walt Disney's television series was 
a shooting contest in which the 
winner set up metal objects all 
around a tavern, then fired a shot 
that ricocheted from one object to 
another and rang the tavern bell. 

If you have the same genius for 
analyzing the ballistic path of a 
bullet, then this is the game for 
you. You fire bullets into a closed 
container with objects inside. If a 
bullet strikes an object, it is either 
reflected or absorbed according to 
fixed rules, explained and 
demonstrated in the instructions. 
The purpose of the game is to 
determine, using deductive 
reasoning, where the 5 objects are 
with the least number of shots. 



18 REfl — RICOCHET — 
28 REM BY PfilL F. JQWSON. 3/«-'88 
100 Q$ - Is used for player inputs 
and is limited to 12 characters in 
length. 

Box (9,9) - Is the array that holds 
the locations of the objects. 
TIMER, SHOT, BOARD, 
GETMOVE, and SOUND - Are 
variables that contain the line 
numbers of the subroutines used in 
the game. 

188 DIM 0$<12).B0>«9,9) TIttR=38e SH0T=4 
88^BO(«D=600:LET GETHOUE=800aET S01H)=1 

see 

Close bracket in printout is 
actually SHIFT CLEAR to clear 
screen. 



lie PRINT "JRICOCHET" ? ? "ft sane of )o 

sic and deduction" :? ? "Do aou need ins 

troctions"; INPUT Q* 

128 IF Q*>"" THEN IF Q«1,1)="Y" THEN liD 

SUB seee 

ise GOTO leee 

300 TIMER subroutine - The 

length of the delay is controlled by 

the value assigned to T. See lines 

5200 to 5220 for examples. 

388 FOR TI^E=1 TO TNEXT TItt RETURN 

400 SHOT subroutine - X (XI) 

and Y (Yl) are the horizontal and 

vertical positions. H and V hold 



the direction of the shot. If H 

equals shot is vertical, 1 

indicates right (lines 450-458) and - 

1 indicates left (lines 440-448). If V 

equals shot is horizontal, 1 

indicates down (lines 470-476) and 

-I up (lines 460-468). F indicates 

the result of the shot. Tl and T2 

are temporary variables used to 

test positions in the array to the 

sides of the present shot location. 

While balls are only located in 

positions 1 to 8, the array holds 

positions and 9, as well, to 

simplify testing. 

488 REH — SHOT ROUTINE — 

418 X=0 : Y=0 : H=8 ■■ U=e ■■ F=0 ^ P=9 

420 IF SO THEN X=3 11=1 GOTO 438 

422 IF S<17 THEN :>;=9Y=3-3 H=-l GOTO 438 

424 IF S<25 THEN :>;=25-£ Y=9 C--! GOTO 43 

8 

426 X=8 Y=33-S H=l 

438 X1=.X Y1=Y 

435 IF B0:'{(X+H,Y+U»5 THEN F=lRETiJRfl R 

EM — AeStK8E0! — 

440 IF HO-I THD) 458 

442 T 1 =BOX< X- L Y- 1 ) : T2=ea-;( X- 1 , Y+ 1 ) 

443 IF Tl>5 (*D T2>5 THEM F=2 RETURJ! 

444 IF Tl>5 THEN H=0 U=l 
446 IF T2>5 THEN H=0 U=-l 
448 GOTO 500 

458 IF H<;>1 THEM 469 

452 T1=B0X<X+1>V-1> T2=Ba«X+l,Y+l) 

453 IF Tl>5 (*C T2>5 THei F=2 RETU.Rt-1 

454 IF Tl>5 THEN H=0U=1 
456 IF T2>5 T»l H=e U=-l 
458 GOTO 500 

468 IF IK>-1 THEN 470 

462 Ti=eax'; x-i . y-i ;■ ^ T2=Ba>;(:>:+i , y-i ;■ 

463 IF Tl>5 (*C T2>5 THEM F=2 RETUFJi 

464 IF Tl>5 THEN U=0 H=l 
466 IF T2>5 TI€H U=0 H=-l 
468 GOTO 500 

478 IF IK>1 THEN STOF' 

472 Tl=80X<X-l,Y+i;-T2=B0SX+!,Y+!;i 

473 IF Tl>5 (*€ T2>5 THE.H F=2 RETURN 

474 IF Tl>5 THEN U=o H=l 
476 IF T2>5 THEN l,f=0 H=-l 
588 X=X+H Y=Y+U 

585 P=P+1 

518 IF X<1 OR X>8 OR Y<1 OR Y;-3 THEN 546 

528 GOTO 435 

548 FOR T=l TO IW le-P) tC-JT T 

542 IF P=l TfCN F=2 RETURN 

543 IF Y<1 TtCN SI =X RETURN 

544 IF X>8 THEN Sl=8+Y RETURN 

545 IF Y>8 THEN SI =25-X RETURN 

546 SI =33-Y RETURN 

600 BOARD subroutine - Draws 
display. 

See reference manual for graphics 
chart to put graphics characters in 
listing. 



688 QRflPHICS e^SETCOLOF; 1, 13. 14 SETCOLCR 
2,13.14:SETC0LOR 4,13,2 
628?" 12345678 I RICOCH 

ET » 



625 ^ 
638 ? 
T" 

635 ? 
CTED" 
648 7 
645 ? 
T" 

658 ? 
BED" 
668 ? 
665 ? 
678 ? 
675 ? 
688 ? 
685 ? 
698 ? 
695 ? 
788 
785 
718 
735 
748 
758 



I II II I I I I l»=SHO 



"32 I I I I I I I I I 



REFLE 



"31 I I 



I M M M I I 



I I I I I I 
I I I II I I 



I" 

lei* 



SHO 



I neSOR 



"29 I I I I I I I 
I I I I I I I 



I I 
f-l 



121' 
I" 



"28 I I I I I I I I I 131" 

I I I I I I I I I r 

"27 I I I I I I I I I 141' 

I" 



I I I I I I I M 



"26 I I I I I I I 



I I I I I M 



I I 



"25 I I I I I I 



I I 



151" 

r 

I 161' 
J I- 



I" 



2 2 2 2 2 111 
4 3 2 I 9 .S 7 I " 

1,13,2 SETDXOR 4,13,2 



755 SETCOLOR 
768 RETURN 

800 GETMOVE subroutine - 
Accepts player input and processes 
it. M equals I for a shot, 2 to place 
or remove a ball, and 3 to end 
game (used in line 1060). 
888 POKE 752, 1 
805 POSITION 28,8 PRINT 
818 POSITION 28,9 PRINT 



815 POSITION 
820 POSITION 
825 POSITION 
830 POSITION 



2S, 10 
28,12 
28,13 
28,15 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



Tape " 
1 - 32 TO" 
SHOOT" 

" e TO plhi:e" 

H Eft.L" 
" E TO END" 
" GAME AND" 
" SCOFE" 
" Youf" move" 

"i ■FiGillO 



835 POSITION 28,16 

848 POSITION 28,17 

858 POSITION 28,20 

868 POSITION 28,21 

N 28,2MNPUT 0$ 

870 IF 0$="" THEN 860 

875 n=0 

888 IF C*(l,l>="e" THEN M=2 

898 IF e*(l,l)="E" THEN ri=3 

895 IF M ... This is a true/ false 

test for the computer. 

If M equals , the test is false; 

otherwise, it is true and the 

program branches to line 930. 

900 TRAP 860 - The VAL 

function expects a numeric value as 

the first item in Q$. If there is a 

letter, an error message is 

generated. TRAP 860 causes the 

computer to disregard the error 

message and go back to line 860 to 

get another Q$. TRAP in lines 

915 and 934 returns the computer 

to the normal error mode. 

895 IF n THEN 938 

988 TRPP 860 

918 IF UfiL(Q*)>0 AND IWL<Q$X33 T^£N M=l 

••s=oflL(e$) 

915 TRflP 8 

928 IF rt=e Tf€N PRINT CH;*(253;'; ^GOTO 36 

8 

938 IF rK>2 TKEN 988 

931 GOSUe 988 

932 POSITION 28,13: 



■fiOO (1) OR"; 
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continued from previous page 

833 POSITION 28,14 ? "R01OUE (2)"; 

934 TWiP 934:POSITI0N 28.15 ? "BrtJ."; IN 
PUT Q^TWIP 8 

935 IF e<e OR Q>2 ThCN 93] 

936 POSITION 28,17 

937 IF &=1 T^OI ? "ADO BflLL AT'i 

938 IF 0=2 THEH ? "TAKE FROM"; 

948 POSITION 28,19 ? "COLUTtX 1-8)"; 
945 POSITION 28,20 ;■ » "; POSITIO 

N 28,20 INPUT C 

947 IF C<1 OR C>8 THEH ? CH?«253); GOTO 
945 

988 POSITION 28,21 ? "KM <9-16> "; 
955 POSITION 28,22 •' " "; POSITIO 

N 28,22 I*UT R 

960 - Add or remove ball. C equals 
column, R equals row. 

968 IF R<9 OR R>16 THEN ? CH?*';253); GOT 
955 

978 R=*-8 

979 REM — CLEAR ENTR-i" WlhCOW — 

980 - Clear entry display message 
and return (to line 1060). 

988 FOR 1=8 TO 23 POSITION 28,1 PRIHT " 

";:fB<T I RETURN 
1000 Initialization routine - Draw 
display and set up array. 
1888 REM — INITIALIZE — 

leie Gosue bixki 

1828 GOSUe 3888 

1838 GOSUe 2880 

1040 - Main program control 

routine. 

iwe REn — miH loop — 

1058 GCSUB GETMOJE 

1868 ON n GOTO 1106,1200,1380 

1 100 Routine if shot was fired - 

Call SOUND and SHOT, print 

letters or symbols at proper 

locations. J equals shot number, 

CHR$(65plusJ) equals letter to be 

displayed. K equals current score. 

1188 GOStJe SOUND GOSUB SHOT 

1118 POSITION 5+2X.vi,l+2*Vl 

1115 IF F=l T«N PRINT "«" K=K+1 GOTO 10 

48 

1200 - If Q equals 1, place ball at 

location guessed. If Q equals 2, 

remove ball. 

1128 IF F=2 THEN PRINT "♦" K=K+1 GOTO 10 

48 

1138 PRINT CH»<e5+J/ POSITION 5+2:S:v.l+2 

*Y:PRINT CH»<e5+j;' J=J+lK=K+2 GOTO 104 

8 

1288 T=«OX(C,R; 

1285 IF 0=1 A^D T.--i0=iNT(T/i0;' THEN ea;( 

C,R)=T+^ POSITION 5+2*C,l+2.tR ^ "•"; 
1218 IF 0=2 AND T/10<>INT(T/18) THEN BCti 
(C,R>=T-1 POSITION 5+2.tC,l+2a:' ;• " ", 

1299 GOTO 1840 

1300 End game and compute score 
- Check each location in the array. 
Every 1 is a wrong guess; 
everything over 10 is a correct 
guess; each 10 is an object that was 
not guessed. Score is 1 point for 
each clue displayed around the 
edge of the board and 5 points for 
each object not found. The lower 
the score, the better the rating, 
from PSYCHIC (line 1390 - to 9 
points) to THE PITS (line 1440 - 
over 26 points). 



1388 REH — SCORE — 

1318 FOR 1=1 TO 9 FOR J=l TO 9 

1328 T=80X(I,J):IF T=0 THEN 1360 

1330 IF T=l TfCN 1360 REM WRONG GUESS 

1348 IF T=10 THEN POSITION 5*-2«1, 1+2U^? 

" ":K=K+5 

1358 IF T>10 THEN POSITION 5+2*1, 1+2*J? 

H M 

1368 hCXT J:fC\T I 

1378 GOSUB 988 POSITION 28, 10 PRINT "SCO 

RE^ ";IC 

1388 POSITION 28,12 

1398 IF K<10 THEN PRINT "Py.-CHIC !!" GOT 

1468 

1468 IF K<15 THEN PRINT "EXPERT !!" GOTO 

1460 
1410 IF K<18 THEN PRINT "PRO I!" GOTO 14 
60 

1420 IF K<22 THEN PRINT "AUERhCE" GOTO 1 
460 

1438 IF K:<27 THEN PRINT "BEGINhK '"GOT 
1468 

1448 PRINT "THE PITS!!!" 
1468 POSITION 28,16:PRINT " = GUESS" PO 
SITION 28,18:PRINT " = TARGET" POSITION 

28,20>PRINT " = HIT" 
1488 POSITION 21,23:PRINT "PLAY AGAIN"; ^ 
IWVT Qtlf £»>"" THEN IF Q$(1,1)="N" TH 
EN 1498 
1485 RUN 
1498 GRAPHICS EFO 

1800 - Random tone sound 
routine. 

1888 SOJND 0,50+150«RND(0),10,8 T=30 GOS 
Ue TIMER^SOUK) 0,0,0,0 RETURN 



2000 - Place 5 objects at random 
locations in array. 

2888 FOR T=l TO 5 

2818 I=INT<8«RND<.0)+l):J=INT<8ttND«:0Hl> 

2828 IF BOX(I,J) THEN 2818 

2038 8OK<I,J>=10 

2048 NEXT T 

2858 I=8^J=8^RETURN 

3000 - Zero all locations in array 
for new game. 



FOR 1=0 TO 9 FOR J=0 TO 9 eOX(I,J)= 
8>CXT J:h£XT I RETURN REM — RESET AR 
RAY — 

5000 - Print instructions. 
5888 REH — INSTRUCTIONS — 

Close bracket in printout is 
actually SHIFT CLEAR to clear 

screen. 

5818 PRINT ")BLACKB0X"? 
5828 PRINT "This puzzle will test jar d 
oductive''? "abilities A txix is placed 
before' 

5838 ? "<Mu. Inside are 64 coapartients 
,":? "arransed as an 8x8 srid. In 5 of" 

5818 ? "tfiose compartments t^rsets i'A'JS 
been"-? "placed Your task is to deduce 
the" 
5858 ? "locations of the targets wiW-out 
'■■7 "beins able to see inside t^^e box": 

7 

sees Gosue 598e 

5868 ? "To obtain clues, sou can fii-s sh 

ots":? "horizontal la into the sides of t 

he" 

5878 ? "box. If the sl-^t doesn't hit an 

n-'-? "thins it will pass straisf-.t tt-irou 

9h" 

5888 ? "and exit fro« the opposite sioe. 
'■■? "If it hits. a tarset t-ead on, the st-. 
ot" 



? 'Mill be ABSORCED and uill not ex- 
it.":? 'If the shot passes mitydn one co 
•-" 

5188 ? "partawnt of a target it will be" 
=? "DEFLECTED 98 degrees ataa from the" 

5118 ? "tarset - in which case, if its n 

CK":? "path takes it to»«ard another tars 

et" 

5128 ? "it »aa be deflected asain or abs 

orbed" 

5138 ? "ba the second tarset." ? 

5148 ? ' If a shot would be deflected" 
=? "before entering the box (bsj a target 

a 

5158 ? 'alons the box's edse), it is " ? 

"REFLECTED bad< . ° GOSUB 5980 
5168 ? ' In the follouins exatiPle, tl-« 
•=? "tarsets and the path of tl-« shots" 
5178 ? "uill be visible to help ixxi unde 
r-"=? 'stand the rules." GOSUB 5980 



5180 
rules. 



Graphic demonstration of 



5188 GOSUB BOARD POKE 752,1 

5198 RESTORE 6888 ^ T=2 GOSUE 5880 

5288 T=8e8:G0SUB TIMER 

5218 T=6:G0SUB 5800 T= 1500 GOSUB TirtR 

5215 T=10: GOSUB 5800 : T=1500 GOSUB TIMER 

5228 T=5:G0SUE 5800 T=5000 : GOSUB TirER 

5238 GRAPHICS ? "Of course, i*«n aou p 

1w »ou won't":? "be able to see tl-e tar 

sets or the" 

5248 ? "paths of aour shots Instead, t 

he":? "computer will displaa saaibols at 

the" 

5250 ? "shot's entry and exit points." ? 

5268 ? "These are the sambols"? 
5278 ? " ft-2 = entry and exit points." 
■7 

5288 ? ' • = shot ABSORBED (no exit) 

•:7 

5298 ? " ^ = shot REFUCTED (entrij an 
d':? " exit points identical)." 

5388 GOSUB 5988 

5318 ? 'At are) tine •mu m^ oaks a suess 
»s':? 'to the location of a tarset Si 
w>1a" 

5328 ? "tape 'B' and the cowHjter will": 
? "displaa a ball at tJ-ie specified point 

N 

5338 ? "You maa reaov.'e a ba1 1 the same w 

»a." 

5348 ? -7 "To fire a shot, tape t^« rusb 

er of":? "the entra point (1-32) " 

5358 ? :? 'To end the aaine and see the a 

ctual":? "locations of the Ursets. tape 

'E'." 
5368 ? "You will receive 1 point for eac 
h':? "clue aoo received aromd t>,e edse 
of" 

5378 ? "the box. and 5 points for each" 
? "tarset that aou didn't find " 
5380 ? :? "The loiKer aou- score, tf-.e bet 
terl'GOSUB 5988 
5398 RETURN 

5800 - Data for graphic 
demonstration. 

5888 FOR 1=1 TO TREAD .X,Y,Q* POSITI.ON X 

,Y:? QINEXT IRETURN 

5S00 POSITION 23-23? "Press RETURN "; 

:IWVr Q»:? ")" RETURN 

6880 DATA 11,3, ,11,9, 

6810 DATA 5,7,,^,7,7,;>,9,7,,\9,5,'s7,5,<, 

5,5,< 

6828 DATA 13,19,',13, 17,-,13,15, -, 13-13, 

*,13,ll,*-15-ll,-'»-17-ll,>-19,n->-21-ll, 

>,23-ll-> 

6838 DATA 11-19,^, 11, 17,--11, 15- ,11-13- 

*-ll,ll,X ^^ 



49 



Q 



DEVELOPING DATA BASE 



J 



by Mark Pelczarski 

S-80 translation by James Garon. 

Atari translation by Rich Bouchard. 

Handling of information is the 
most widespread use of computers. 
There are numerous data base 
programs available for almost any 
computer on the market, but it's 
often difficult to tell whether a 
particular program will meet one's 
specific needs. These packages 
usually cost in the neighborhood of 
$100, which makes them quite an 
expensive gamble; one that is often 
not justified by smaller 
applications. With packages from 
reliable software companies, the 
gamble usually pays off and the 
user wonders how survival was 
possible without the system; but 
wouldn't it be nice if one could 
have a custom designed data 
system — for free? 

This is the first part in a regular 
series that SoftSide will be 
featuring about developing your 
own data base system. What we 
will do is put together all the 
functions of a data base system' in 
a modular approach, explaining 
each part and the options available 
as we go along. The first couple of 
months will consist of creating a 
simple system that has the basic 
capabilities necessary for data 
handling: addijig, deleting, 
changing, and printing 
information. As time goes on, well 
talk about ways to improve these 
functions, plus add new functions, 
such as sorting and selective 
searching, and explore the different 
possibilities with each of these. As 
a result you should have a data 
system that you can modify to fit 
your needs, and a little better 
understanding of how you can get 
your computer to do what you 
want without always relying on 
purchased software. 

This month well start with the 
most basic capabilities: putting in 
information, saving it, and 
recalling it later. Before we do so, 
some decisions must be made 
about how the program will 
function. To begin, well consider 
50 



the computer systems with which 
well be dealing: the Apple, S-80, 
and Atari. Included in this series 
will be listings for each of these 
machines. Conversions to other 
systems can be made from the 
BASIC which is closest to the one 
you use. In addition we must also 
consider that some of these systems 
occur more frequently with cassette 
storage than with disks. SoftSide's 
surveys have shown that although 
over 90% of our Apple owners 
have disk systems, only 60% of our 
TRS-80 readers use disk. We don't 
have figures for the Atari, but it's a 
safe assumption that there are 
more cassette users than disk users 
at this point. Fortunately, due to 
other factors as well, our data base 
program will be usable to those 
with either type of system. Since 
disk input and output(I/0) is 
somewhat slow and wearing on 
disks if in constant use, we can 
structure our system to read and 
write to disk only when we want to 
save or recall an entire file. The 
information will all be stored in the 
computer (RAM) in an array, or 
table, during normal operations. 
When beginning and ending 
operations, this information can 
easily be recalled or stored 
sequentially with tape or disk. This 
is called a Sequential Access File. 
Later we will look at other 
possibilities open to disk users. 

The steps for building a program 
are to first define your goal, as we 
have already. The second step is to 
decide on an internal data 
structure; how you will store the 
information in the computer. The 
next step is to modularize your 
program, breaking it into logical 
sections that will be basically 
independent except for the 
variables on which they'll operate. 
The last building s^ep is to actually 
write the code. There are other 
steps that follow when writing a 
good program: debugging, user- 
proofing, and field testing. Our 
program will be based on INFO 
developed by the same author as 
an interactive data base system for 
a time shared computer, so well 
assume these last steps are actually 



somewhat complete before we even 
start. 

The internal data we will wish to 
keep consists of the array of data 
that will be stored, plus 
information about that array. The 
information necessary will be how 
many categories each record will 
have, what those categories are, 
and how many records there are. A 
record is considered to be one 
block of information, such as one 
person's name, birthday, phone 
number and address. The number 
of records would be the number of 
people for which this information 
is stored. 

In our program, we use a two 
dimensional string array, IS, for 
our data. You can think of this as 
a table that can hold a set of 
characters (letters and numbers) at 
each location, (see figure 1) Other 
variable names we use will be NH, 
which stands for number of 
headings, or categories, H$, which 
will be a one dimensional array, or 
list, that contains the names of the 
headings, and NI, the number of 
items or records. Other 
miscellaneous variables we used 
were A$ for user answers to 
questions we'll ask, MX for the 
maximum number of items we'll 
allow, SS, a switch that will be 
explained later, F$ for filename, (in 
the case of disk users), and I and J 
for loop counters. 

Due to the nature of the arrays 
we did a little playing around with 
NH and NI. Since an array when 
dimensioned has a zero element, 
we decided to make use of it. If 
you said DIM H$(2) you'd actually 
set aside three locations: H$(0), 
H$(l), and H$(2). Therefore, to 
avoid wasting space, NI and NH 
will always be one LESS than the 
number of items and number of 
headings. If there are three 
headings we'll talk about them as 
dimensioned above, from to 2. 

Because the Atari and a few 
other computers do not allow 
string arrays we had to do some 
other fooling around with that 
version of the program. Since 
dimensioning a string on the Atari 
tells it how many characters the 



Figure 1 
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Table Structure 
(S-80 and Apple) 



String can hold, we can actually 
put all the data into one string! To 
do this and be able to tell where in 
the string the appropriate data lies, 
we have to specify a maximum 
length for data items and headings, 
(see figure 2) An unfortunate result 
for the time being is that each data 
item will use the amount of storage 
that you specify for the largest one. 
Variables added to the Atari 
version are IL, for item length, 
HL, for heading length, and RL, 
which is the record length 
computed from NH and IL, and is 
used to shorten some often used 
computations. Information will be 
stored one record after another in 
the string. 

Dividing programs into logical 
sections before starting to code is 
often overlooked by novice and 
even some experienced 
programmers, but doing this with 
any program greatly simplifies the 
entire task. Each section can be 
treated as a program in itself, and 
any problems that occur can be 
isolated much more easily. Our 
program will consist of a main 
section, which will offer the user 
choices and transfer control to the 
other sections as needed. The other 
sections will be written as 
subroutines, using the GOSUB and 
RETURN statements for the 
transfer of control. Those 
subroutines, for now, will be one 
to read a file from disk or tape 
(line 1000), one to initialize a new 
file when there's nothing to read 



(line 1500), one that will write the 
file in memory to disk or tape (line 
2000), one to print the current data 
on the screen or a printer (line 
3000), and one to accept new data 
for the file (line 4000). 

The main program, in lines 100 
to 540, first asks if it is to read an 
existing file or initialize a new file. 
It then sends control to the 
appropriate subroutine at 1000 or 
1500. Upon returning, available 
choices are offered to the user. At 
this time the choices will be: save 
the file in memory, print what's in 
memory, add more data, or quit. 
We'll add choices here as the 
program develops, and we'll add 
new subroutines also. 

Notice that in line 500 you see 
the first occurrence of SS, the 
switch mentioned earlier. This is a 
save switch and its purpose is to 
give you a warning if you try to 
quit without saving the file in 
memory. This switch is set to 1 
whenever you use the save option 
and set to if you make any 
alterations in your file, which for 
now would mean using the add 
option. An implied warning is that 
you should save your file in 
intermediate stages if you are 
entering a large amount of data. If 
something drastic happens, like a 
power failure or a program bug, 
you won't have to redo the entire 
file. You will probably want to 
keep backup copies of important 
files also, using the save option for 
each. 



Between lines 1000 and 1400 is 
the subroutine that reads an 
existing file. It should contain the 
appropriate disk or tape read 
commands for your system. The 
information that well want to 
know, therefore that which we 
need to save, is the number of 
headings, NH, the number of 
items, NI, and then the list of 
headings and all the data that was 
stored, H$(0-NH) and I$(0-NI,0— 
NH). The arrays are dimensioned 
here and loops are used to read the 
headings and data. Note that the 
Apple uses D$, which is given a 
value of Control-D, to specify disk 
operations. The Atari version must 
read two other pieces of 
information, NL and IL, but 
doesn't need loops to read the 
headings and data since they are all 
stored in one huge variable. Note 
also that MX, the maximum 
number of items, is given a value. 
Later we'll make more use of this 
variable and have the computer 
calculate the largest value it can 
use. 

The subroutine that starts a new 
file is in lines 1500-1600. It is 
necessary for initialization of the 
variables that describe the file. 

The subroutine in lines 2000- 
2200 writes the information in 
memory to tape or disk. Again, the 
appropriate commands to write to 
disk or tape should be given here. 
This subroutine and the read 
subroutine at 1000 will be the only 
two which access disk and tape and 
will contain the only differences for 
those two types of users. All the 
information that the computer will 
later need to know about the file is 
saved sequentially here. Note that 
you may change the file name 
before saving, meaning you can 
save a file in two different forms. 
This may be useful in the future if 
you want to save a file sorted by 
two different keys. 

Lines 3000-3900 contain the 
print routine. Line 3050 starts the 
process of printing to the screen, 
and line 3400 starts the process of 
using a printer. Printing starts at 
record I (actually in record 0) and 
for each record every heading is 
listed with the corresponding data. 
This subroutine will undergo 
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continued on page 66 
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VIDEO EASEL 



VIDEO EASEL for the Atari - a 
review. 
by James Garon 




There are two main parts to this 
fascinating program cartridge: 
Life and Drawing. Life is a 
mathematical diversion in which 
"cells" pass through one 
generation after another; living, 
dying, and giving birth according 
to certain rules. The rules are 
clearly explained in the instruction 
manual, which also provides a list 
of books and magazine articles for 
further reading. Certain popular 
patterns are made available in a 
"menu", such as: GHders, 
Factorys, and I-beams. These may 
be placed anywhere on the screen. 
You may also specify the position 
and length of horizontal, vertical, 
and diagonal lines. If none of 
these options suits your fancy, you 
can draw your own starting 
patterns in normal or "quad" 
mode. In quad mode, the line you 
draw with the joystick is reflected 
so that you actually draw four 
symmetrical lines at once. 
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Whatever option or combination 
of options you use to create an 
initial "colony", you need only 
give the START command and the 
program will take over -calculating 
and displaying an amazing 95 
generations per minute. Since all 
of this takes place in four colors, it 
is an incomparable implementation 
of Life; however, in this reviewer's 
opinion, the Drawing program is 
even more engrossing. 

To begin with, there is ordinary 
drawing. The joystick moves the 
cursor while the fire-button 
determines whether a line is drawn 
or not. The excitement starts when 
you have drawn a simple pattern 
and then give the command to 
START. Instantly, the computer 
begins repeating what you have 
drawn at such a blistering speed 
that the screen seems to take on a 
Ufe of its own. By puUing back on 
the joystick, you can slow this 
activity down to the level of 
human perception. Several things 
then become apparent: 

Your original pattern is being 
repeated in a specified direction 
which is determined by the starting 
and ending cursor-positions in 
your original drawing. (Thus the 
same drawing will produce 
different results when the cursor is 
moved to different locations before 
STARTing.) The pattern is 
repeated in this direction until it 
encounters the edge of the screen, 
at which time it will be reflected. 

When a line crosses a previously 
drawn line, it produces a new color 
at the intersection. A third line 
crossing the intersection of the first 
two yields still another color. A 
little experimentation and some 
thoughtful hints from the manusil 
will allow you to create 
magnificent "living" paintings. 

When all this is done in four- 
fold symmetry, the results are truly 
impressive. 

Six built-in paintings are 
provided, to be run alone or in 
combination with your own 
drawings. 



Any pattern you produce can be 
used as the starting generation for 
the Life portion of the program, 
and, conversely, at any time you 
wish, you may halt the Life 
program and use the current 
generation as the beginning of a 
Drawing - either normal or quad. 

Perhaps the most enjoyable 
feature of the cartridge is the 
capability of changing the three 
main colors. With a joystick in 
slot #2, you may cycle through the 
sixteen possible background colors 
by pressing forward. If you hold 
the fire-button while pressing 
forward, you will change the 
intensity of the background 
through the eight possible shades 
from dark to light. Similar 
changes take place when the stick 
is pressed to the left and right, but 
these changes affect different 
portions of the drawing. 

This reviewer played with quad- 
drawing for many hours, skipping 
such delights as Charlie's Angels 
and Vega$, but perhaps the best 
recommendation for Video Easel 
comes from my wife - who is 
notoriously indifferent to all 
aspects of computers. Not only 
did she sit entranced in front of 
the TV while the patterns and 
colors changed, but, the next 
morning, as she saw the review 
copy of the cartridge being slipped 
into the old briefcase, she said, in 
a mournful voice, "Does it have to 
go back so soon?" 

® 

VIDEO EASEL is available from 
the Software Exchange for $39.95 




Sink the Bismarck! 

Historical wargaming may be the only intellectual hobby which creates 

more intensely devoted fanatics than home computing. When two 

wargamers spend an evening refighting a famous battle, they'll spend 

several hours happily setting up the gameboard, firepower 

charts, unit strength tables and so forth ... all before the first 

shot can be fired! There are such paper and pencil 

simulations of every famous battle from Shiloh to El 

Alamein. If you've ever tried one, you already know the 

excitement and challenge of trying to be a better general 

than Rommel. 

If you've got an Apple II Plus (or an Apple II with 

Applesoft Firmware ROM Card) with 48K memory and a 

5 1/4" mini floppy disk drive, you can be playing 

Computer Bismark in a few days. For $59.95, you get the 

game program disc, 2 mapboard charts (for plotting 

secret strategies in grease pencil between moves), 2 ship 

data charts, 2 system command cards, a loading 

instruction sheet, and a rulebook. $59.95 

Computer Bismarck is also available for the TRS-80 
Level II on cassette for $49.95 



TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 
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FLOPPY SAVER PREVENTS: 

Computer drive's clamping hub from tearing disk's 
center hole. 

Coating removal, scuffing and dimpling when the 
disk hits the rotating spindle. 

Data loss caused by improper rotation of a floppy 
disk. 

Any damage to Floppy Disk's center hole. 

FLOPPY SAVER KIT consists of: 

Plastic centering tool and pressure ring. 
25 7-mil mylar rings with paper protected adhesive 
backing. 

EASILY installed on disks in seconds. Only one side 
needs the ring. 

for 5 1/4" diskettes •Complete Kit $14.95 • Refill $7.95 



Jll 3|p^ T O ORDER: CALL TOLL FREE 

O 1-800-258-1790 



(In NH call 673-5144) 
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ake your 

Library 

Complete 
with . . . 



SOFTSIDE: S-80 EDITION 

*+ NovtmlMr 1978 End Zone, Level I or 
Level II Conversion article, Trolls Gold, Shop- 
ping List, Octal to Hex. 
'* Decambar 1978 Santa Paravla, 
Blorhythms, Mortgage Calculation, Spelling 
Bee, Chess Clock. 

January 1979 Round the Horn, Ten Pin, 
BovKling, Kiddy Slot, Computa Sketch, Writing 
Game Articles. 

February 1979 Income Tax Program, Con- 
centration, Elements Quiz. 

March 1979 Tarrot, Metric/English conver- 
sion, Jig Saw, Fog Index, Dive Bomb, Per- 
sonal Finance Part 1. 

April 197S Safari, Personal Finance Part 2, 
Don't It Make My Brown Eyes Blue, Rabbits 
and Foxes, Spring Flowers 

May 1979 Dog Star Adventure, Awari, Latter 
Crunch, Math Drill, Super Sub. 

June 1979 Atlantic Balloon Crossing, NIm, 
German Word Quiz, Appliance Record 
System, Entrapment. 

July 1979 All Star Baseball, Yahtzee, Tank, 
Spelling Bee, Collision. 

August 1979 Melt Down, Shooting Gallery, 
Story Book, Code Tutor, Cryptogram. 

September 1979 Engineer, Treasure 
Dungeon, Hangman, Pyramids. 

October 1979 Westward 1847, Battleship, 
Reaction Tims indicator. What Kind of Word? 

December 1978 Oil Baron, Drag Rce, 
Christmas Show and Tell, Index to Level il 
Manual, Towers of Hanoi, Slalom. 

January 1980 Moving Maze, Dante's Infer- 
no, Bomber, Reflection, Duck Hunter. 

February 1980 Deadstick, Backgammon, 
Parachute, Play it Again Sam, Deep Six. 

March 1980 Broadway, System Emulator, 
Line Four, Add, Sonic Torpedos. 

April 1980 Stud Poker, Draw Poker, Com- 
puslot, ICBM, Solitaire. 

May 1980 Star Trek III, Encounter in the 
Near Thollan Sector, Day of The Week. 
This Issue only: 

Magazine $5 .95 

with cassette J14.95 

with diskette $19.95 

June 1980 MicroMllilonaire, Galaxy Com- 
bat, Numbagels, Simple Sound Interface. 

July 1980 Adventure Builder, Adventure In- 
terpreter, Lost Dutchman's Gold, Pinbali. 



PROG/80 

PROa/80 The magazine for serious Program- 
mers of the S-80 Computers. 

March 1979 Simple Simon, StrlngJ Fever, 
Level II Variables, Data Statements, INKEY 
Routines, Super Graphics with Disk 

May 1979 Boomer Box, Clock Routines, 
Rescue, Scattergram/Corrslatin, ROM 
Keyboard Routines, Super Graphics without 
Disk, Super Graphics Aid. SQUiSH/B.AS. INIT. 

July 1979 Sound Subroutines. Machine 
Language Video, High Density Data Storage, 
Histograph and Basic Statistics, Talking Banko, 
Plot. Cassette Controller, TRS-80 Music. 

September 1979 DOS, Kids Stuff, Disk 
BASIC, Renumber, Squish 2, Data and Time 
Routine. 

December 1979 Pascal Review, Which 
Language?, Devices, Hex/Declmai Conver- 
sion, DIM Statements, Variable Uniqueness, 
Computer Telephone Dialer, Preference Poll, 
Reviews of Model II, Macrotronlcs, M-80, and 
Exatron Stringy Floppy. 

February 1980 The Source, Timesharing, 
Tool, Program Write Protection, NAME, 
SuperZap Review, HexMem Monitor, High 
Speed String Handling, CTR-41 Modifications. 

April 1980 Level li Keyboard Redefinition, 
Writing System Tapes, Voice Synthesizer Lab, 
BASIC File Utility, Devices (2), First Time on 
the Source, Forum 80, Repeatabie Ran- 
domness, Zero Slash Killer, Proofread 

June 1980 All Purpose Print Routine, Z-80 
Disassembler, Printer Terminal, Random Ac- 
cessing Techniques, Form Letter, BASIC To 
.Electric Pencil Conversion, New NEWDOS 
Command-LOC(X), Branching Functions in 
APL80. 

July 1980 Fortran Subroutines, TRS-80 Pro- 
gram Storage and Useful Corroilarles, Splat- 
An introduction to Tiny Comp, Program Por- 
tability, VARLiST. 



* Cassette version not available 
+ Disk version not available 
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SOFTSIDE: APPLE EDITION 

*+ Januafy 1980 Dog Star Adventure, 
Reverse, Giant Clock, Trolls Gold, Loan Amor- 
tization. 

'-f February 1980 Supernim, State 
Capitols, Elementary Math, Connection, 
Musical Scales, Sort. 

* + March 1980 Care and Feeding of Integer 
HI-RES, Renumber and Merge, Acey-Oucey, 
Treasure Hunt, Bouncing Ball Catcher, 
Switch Puzzle. 



* April 1980 Applesoft Ampersand, Shoot- 
out, Jigsaw Puzzle, Space War, Melody, 
Display control Characters. 

* May 1980 Invaders, Small Marquee, Magic 
Cave, Black Box, Fifteen Game, Hyperbolold. 

* June 1980 Dogfight, HI-RES Drawing, 
Dodger, ROM the Robot, A Hello Program. 

July 1980 Pork Barrel, NO MIS, ROM the 
Robot, LORES Printout, It's a Small World. 



* Cassette version not available 
+ Disk version not available 



back issues of: 



/3oft5ia 




Apple 
S-80 
80 



• !• 



Programs, documentation 

and lots more! If you have missed 

out on any past issues, NOW'S THE TIME 

»T0 ORDER!!! 
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SoftSlde, S-80 and Apple Back Issues: 

Magazine only $2.50 

Magazine with Cassette Programs, $9.95 

Magazine with Disk Programs, $14.95 

Prog/80 Back Issues: 

$4.00 (Includes First Class Postage) 



To order TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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CROSSWORD PUZZLE 



J 




ACROSS: 

I. Integrated Circuit 

5. Beginner's All-purpose Symbolic 
Instruction Code 

9. This comes in two types, even and 
odd 

II. If you eat too much uranium, 
you might get atomic 

13. A gram of prevention is worth a 
kilogram of 

14. Two-thirds of a feline 

15. Touch 

16. President's nickname 

17. Science Fiction (abbr.) 
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18. A bit can take on either of two 
values. We can think of these as high 
or 

21. Operating System (abbr.) 

22. An unusual color for a computer 
- especially an Apple 

25. is to S-80 what 

PROGRAM LINE EDITOR is to 
the Apple 

28. Kanga's offspring, according to 
A. A. Milne 

29. Returns are to Apple and Atari 
as these are to the S-80 



31. Two thirds of the Atomic 
Energy Commission (abbr.) 

32. Giant bird from "1001 Arabian 
Nights" 

33. You and me 

35. It is a scientific fact that people 
who wear this can learn to program 
as well as anyone else. 

36. Shoo! 

38. Two thirds of a bit 

39. Jai plays a major role 

in one chapter of the book "Take My 
Computer . . . Please!" 



41. Ireland 

42. You should not eat corn on this 
while programming, as the butter 
will drip on the keys (2 words) 

44. In the interest of reducing 
errors, we recommend that you do 
not use this spelling 

45. There are at least two kinds - 
good and bad 

DOWN: 

1. Central Processing Unit (abbr.) 

2. What software specialists blame 
program malfunctions on 

3. Anger 

4. Ratio of circle's circumference to 
its diameter 

5. Eight bits; smallest unit of 
information 

6. Lock up important posessions 
here 

7. Cools your drink 

8. Popular game available for S-80, 
Atari, and Apple 

10. A helpful way to visualize an 
array 

12. One of several fairy tale 
creatures who climb into your I- 
down while you are asleep and put 
bugs in your programs 



13. Allows multiple statements per 
line number 

19. Companion to AND and NOT 

20. Name given to connector on a 
computer cable 

21. Attempting to set an integer 
variable to 32768 or greater will 
cause this error 

23. Regarding 18-across, we can 
also think of "yes" and 

24. Possibly the only One who can 
write a bug-free program on the first 
attempt. 

26. Two thirds of a Cathode Ray 
Tube (abbr.) 

27. American Standard Code for 
Information Interchange, (see 31 
down) 

29. Planet constantly being 
"invaded" 

30. A companion of DN A and TON 
(hint: think backwards) 

31. Same as 27-down 

33. REM statements make your 
program clearer to others and even to 
yourself months later - but only if 
you them 

34. Often found with FOR and 
NEXT 



35. There are eightt of these in a 
bytte (singular) 

37. Not the best thing to stick in a 
disk drive 

39. High card 

40. Always returns a non-negative 
number 

43. Two thirds of the final program 
statement ^|J^ 
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M(D)M(D)IP(n)LY 

A 16K COMPUTER OPPONENT PROGRAM FOR THE 

APPLE II AND TRS-80. 



"MONTY TM plays Monopoly"* is a computer opponent program designed to 
be used along with your Parker Brothers Monopoly game. You will need 
the board and all of the equipment that comes with the game to use this 
computer opponent program. 

MONTY TM provides a new dimension in microcomputer software. You will 
come to know him as simply another player, a bright, entertaining guest who 
provides real excitement for many of your favorite board games. 
MONTY TM written in machine language, works with a 16K TRS-80 Level II or 
16K Apple or Apple II plus. Cassette $24.95. Diskette $27.95. 




Order TOLL FREE 1-800-258-1790 (In NH call 673-5144) 
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Mirco 

Accounting 

Systems 



^\~ 



80 
Accounting 



FOR 

CFFICIENCl With The Best Systems 



No Lion about It - - - 

We're The Best In The Business 



On Today's Market 



No other software yet, has provided the simplicity, screen prompting and novice operator error detection. We design 
totally for you and the TRS-80, w/ith accounting firms and your input. 

All of micro-accounting system's flashing cursor programs, edit practically every keyboard entry, to eliminate 
operator errors. This gives you speed and efficiency of automated bookkeeping, much more simplified with less manual 
ledger sheets to shuffle through. 



M.A.S. GENERAL LEDGER 

Our ledger is very simple to use, with up to 
200 GL-Accounts, detailed transaction tiles, 
trial balance reports, income statement and 
balance sheet, like a general ledger should. 
However, out-standing features include: 
auto loading, batch up to 200 debit & credit 
entries and auto edit for out-of-balance 
entries. All, transaction programs edit 
everything, allow 21 character description 
and 13 for reference, unlimited daily en- 
tries. Compare different periods, with com- 
parison reports. Prepair your own depreci 
ation with the depreciation schedual. $159.00 

M.A.S. ACCOUNTS RECEIVABLES 

Our present system will expand up to 1600 
customers with auto-billing, mailing labels, 
and many reports to help improve cash 
flow. Special features include: Ample room 
for decriptions (25 char, name, 20 for 
address, 15 for city and 2 for states). Fast 
entry of charges and payments, with 
discounting allowed, complete management 
report with true ageing, bill-mail code, disc, 
percent, total charges, pymts, last pymts 
date and amt., total disc, and remaining 
balance. Overdue account listings and 
many more features to assist. Runs by itself 
or auto posts to our general ledger. Very 
simple to keep efficient cash flow. I nstead of 
eliminating your receivables, use our 
programs to help keep them current. $159.00 



M.A.S. CHECK REGISTER 

Complete with reconsilitation form. We 
have everything needed to keep a efficient 
checking account. Record checks written by 
hand, as-well-as writing checks for our 
accounts payable. Will handle up to 600 
checks monthly. Record up to 200 separate 
checks or total deposits monthly. Print a 
check register with all checks and deposits, 
showing ck. ff, payee memo, amount, and 
code. You can correct, checks, deposits, 
void checks, stop payment and more. 
Provides information as follows: amt. of 
total checks, amt. of total deposits, 
remaining balance, service charges and 
amt. at beginning of month. Simple to use, 
with complete error detection. Works stand 
alone or links to our accounts payable. $89.00 

M.A.S. ACCOUNTS PAYABLE 

Our system will handle up to 300 vendors 
with checkwriting, mailing labels, and 
many reports to help improve cash flow 
Special features include: The same amount 
of information as accounts receivable, fast 
entry of charges and payments, with 
discounting allowed, complete management 
report with true ageing, overdue account 
listings and many more features to assist. 
Runs by-itself or auto posts to our general 
ledger. Very simple to keep efficient cash 
flow and receive discounts. $159.00 



Order The Complete Package For $489.00 And Save $77.00 

TOLL-FREE 1-800-258-1790 In NH call 673-5144 
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********** THRE Sm:.l SfltflE REFIIRTS ****** ( BOHOM RIGHT ) PROGPi^l A tlflltfTEMfil-ICE [©111 ******** 
LIST 0't'ERDi£ fiCCaiNTS BV m mCEER OF CflVS YOU WISR ( THE SFlME PROCEDURE FOR INflCTI^/E ACCOUNTS ). 



OVB?DI.E ftCCCUfrrS FtS OF M/iS/SO PAGE i 



RCCT NfflC 

110. 

ilO 1€STEFJ) LUMKR OT. 



99 CA'tS flMaifJT 

0'7'ERDUE OUID 

3f6. 00 2. 249. 80 



MAS 80 

SAMPLE 

Report 



( FOR MORE CCTRIL RW THE flCCOUNTS PfiVRBLE iDR HCtOUtfTS PECEIVftElE FfPORTS FOR AGED TOTALS AND GRAI© TOTAL iJ ALL ACCOUNTS. ) 

ACCTS PfiVAH^ ACTIVlTi' REPORTS AS OF ■34/15/'S0 PflGE 1 

ID t fffiME LflST CHRG LAST PMT RMT LAST PfIT V-T-0 CKRG V-T-D PMT V-T-D DISC. REMfllNItJG 

m » INV DATE < 31 Dfl'i'S 31-60 Dffi^ 61-99 DAYS > 99 DftYS BALAICE 

*-*-*-*-*-*-*-*-+-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* *-*-*-*-i|i-+-*-*-:*-*-+-+-*-+-*-»-*-;^c-*-*-+-:i-*-*-+_* 



119 ICSTEFll LUMBER CO. 94/'05/89 94/91/S8 1999. 99 2, 249. 98 lCi90. 9? 
P.O. 243 94/19/89 384.99 99.99 1909.99 856.99 



90. 60 



2, 249. 09 



384.90 88.99 1099.90 856.99 

t ********** M **************************** Jf *■*******■***■■¥** * 

AFTER POSTING ALL TRfiNSACTIOtJ DfTRIES, THEh) FINflfCIflL FEPijRTS CAN BE RLU-I ilONTHLV OR f10F:E CfTDJ FOR 11flfJAGEi€MT. 



INCOME STATEMEtJT AS Cf 93.'ll/80 FflGE 1 

ACCaiNT NAME i:URRENT BflL ?. V-T-D M. X 



INVENTORY SALES 

ACCESSCiRIES 

SALES INCOtlE 



iNverrcj^i' purcha^ 

ACCESS^IES 



SfiLES INCOfE 

***-***■********«* 

9.179.50 87.3 27,259.35 37.5 

L 478. 32 13.7 4,786.86 12.5 



10,659.32 180.9 32.937.21 199.9 



COST OF SALES 

5,170.00 89.1 17,359.25 79.8 

989,35 10.9 L 987. 23 29.2 



TOTAL COST OF SaES 6, 159. 35 198. 9 D, 337. 48 190. 8 



GROSS PRIJIT 



RENT 



4,499.97 28.3 12.699.73 32.3 

OPERflTIffi E<Pe6£ 

L400. 90 79.9 4,290.38 79.9 

450.99 20.1 L 350. 90 29.1 



L 859. 89 108.9 



5,550.90 190.9 



EJ-rrERTAINHBlT 

TOTAL OTHER INCa€ -299. 50 188. 9 

MET INCOf€ ( PROFIT ) 2.449.47 22.3 



OTHER INCO^E « E:<PENS£S 
*************************** 
59 199. 9 -5, 50. 98 198. 9 



-5,58.30 180.9 
6, 599. 73 21 5 
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FCCOUNTS RECEIWEIE WIU 
RUCTirn DESCRIPTION 

1 PROCESS TRANSACTION 

2. PO'STING TO GENERAL LEDijER 

3 FILE MAINTBeCE 

4 MAfWElOT REPORTS 

5 SILLING 

6 MftlLLING LIST 

7 iPEN/UOSED ACCOUNTS 

8 CHflfCE SY-STEM, DATE 

9 FINISi€D 

OITER FUKTION- 3 



ACCOMS RECEIVABLE 
MASTER MflI^freWICE r€NU 

1 CHANGE CUSTOMER hMIES 

Z CHANGE CHARGE TRANSACTIiDNS 

3 CHANGE PAYferr TFflf-ISACTI:3NS 

4 LIST i::USTOMER FILE 

5 LIST CHflRGE TRANSACTIOfG 

6 LIST PflY'MENT TRANSACTIONS 

7 COPY DATA DISKS 

3. DIRECTORY OF DATA DISKS 

9 FORtlflT DATA DISKS 

10 RETLIRN TO MfllN MOflJ 



ENTER FICTION- 7 
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DATA BASE REVIEWS 



J 



Apple Data Base Programs -What to expect when you buy. 



Reviews by Mark Pelczarski and 
Mike Sullivan 

When it comes to selling 
software, there is no doubt that 
the real money is in the business 
market. It stands to reason that 
almost every major software 
company would be marketing some 
kind of data base package, very 
big sellers in that market with price 
tags usually in the $100 range. 
With such a variety of offerings 
available, however, selecting the 
one you want can be rather 
confusing. 

The first and best bit of advice 
we can offer is to narrow your 
choices down to packages from 
well known software companies. 
These companies have a lot at 
stake with their reputations. If 
someone buys a bad program from 
a specific vendor, the tendency is 
to avoid that vendor in the future. 
It's a very competitive business 
with few monopolies; good 
companies cannot afford bad 
programs on the market. 

Some of the options to look for 
in a data base are flexibility (can 
you adapt it to any application, or 
change your mind after you've 
begun), print formatting, searching 
and sorting, and math capabilities. 
The documentation provided also 
varies, but most of the major 
packages provide very complete 
manuals and are fairly easy to use. 
In this article we'll take a look at 
some of the better known packages 
and capsulize the differences we've 
found. From that point you 
should be able to make a decision 
based on your own needs. 

In no particular order, the first 
package we'll examine is Personal 
Software's CCA Data Base 
Manager. Priced at $99.50 it is 
very typical in its functions - a 
compliment in that it is very 
complete for business uses. 
Included in their manual are 
examples for inventory control and 
mail list applications, and it can be 
used for any application that has 
data which can be organized in a 
table structure (almost every data 
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base system uses this structure 
-some number of headings 
followed by columns of data). 
The strongest advantage of the 
CCA Data Base is its 
compatibility with Visicalc; files 
can be exchanged between the two 
programs, the disadvantages to 
date have been the inaccuracies 
and omissions in the 
documentation provided with the 
package. Not included is the 
modification necessary for using 
the system with a parallel printer 
-a thoughtless omission that has 
caused more than a few headaches. 
Personal Software has promised an 
update, however, and those people 
who already own CCA should send 
in their registration cards and 
they'll receive the new program 
disks and manual changes as soon 
as they are available. The 
documentation does already 
include a section of programmer's 
information that will help the 
ambitious make their own changes 
and additions to the package. 
Overall, despite the shortcomings 
of the early versions, this is a good 
choice for the price; especially if 
you also have Visicalc. CCA Data 
Base Manager requires at least 32 K 
and Applesoft, and is available 
from Personal Software or The 
Software Exchange 

Micro Information System from 
MUSE at $100 is similar to the 
CCA Data Base program in 
options. It does not have the 
Visicalc compatibility, but it will 
work with either the Apple II or 
Apple II plus with 48K. The one 
feature of this system that is 
surprising is that the data format is 
predetermined. You are given six 
definable headings and five 
category items. The data items are 
preset at a maximum length (36 
characters) and the category codes 
may be 2 characters each. 
Although the package itself is well 
done, this inflexibility can be a 
major drawback. MUSE is located 
at 7112 Darlington Drive, 
Baltimore, Maryland 21234. 

The Information Master, from 
High Technology, is of the same 



form, but more flexible like the 
CCA system. Record length (the 
combined length of the data items 
across headings) can be up to 
1,980 characters. It is well written 
and almost impossible to crash 
-wrong keystrokes, such as 
RESET, don't harm the program. 
Printer options are more versatile 
than with the previously mentioned 
systems, and the math capabilities 
include performing calculations as 
data is entered. Repetitive data 
may be entered in consecutive 
records with the right arrow key, a 
feature that can be quite useful. 
The disadvantages may be its speed 
( a 500 record sort takes about 35 
minutes), and its price: $150. Its 
advantages are its ease of 
operation and options available. 
Information Master requires 48K, 
firmware Applesoft, and a disk 
drive (although 2 are 
recommended), and is available 
from High Technology, Inc., 8001 
N. Classen Blvd., Oklahoma City, 
OK 73113. 

The Data Factory from Micro 
Lab has the most impressive 
packaging I've seen and the 
programs are again well done. 
The manual is indexed with tabs 
for easy reference and it also 
comes with 2 identical program 
disks, the first to offer some 
compromise for a backup master. 
The packages previously mentioned 
will replace the master disk at a 
price if you return the original, but 
that does not solve the interim 
problem of an inoperable system. 
None of the ones yet mentioned 
have a master that can be copied. 
The Data Factory offers all the 
features of a good data base, 
including math capabilities, 
versatile print options, and is also 
the most flexible. You may 
transfer parts of files to new files, 
or even add new headings to an 
existing file. It requires Applesoft 
and 48K. A drawback is that it is 
very inefficient with only one disk 
drive; you'll have to keep 
swapping disks. Two drives are 
highly recommended. The Data 



continued from previous page 

Factory costs $100 and can be 
purchased from Micro Lab or The 
Software Exchange. 

The rest of the packages 
reviewed here have the nice option 
that you can make your own 
backup copies. It's a shame that 
pirating is making this feature 
almost extinct. Hopefully, (I'm a 
dreamer) consciences of software 
consumers will allow the 
manufacturers that still provide 
that option to continue to do so; 
otherwise it's going to cost 
everyone money in the future. 

Synergistic Software's 
Modifiable Data Base, priced at 
$79.50, is in Consumer Reports' 
terminology a best buy. The 
program provided actually creates 
a program on your own disk that 
has the data specifications you 
desire. It has versatile print 
formatting, allows numeric 
operations on data, and has fast 
search and sort routines. Its only 
drawback may be that it requires a 
little more technical knowledge for 
initial set-up. It also has the 
smallest manual of those listed 
here; it's complete, but could 
probably elaborate on some points 
for the sake of beginners. Still, it 
is an excellent package for the 
money. The Modifiable Data Base 
requires 48K and Applesoft 
firmware, and is available from 
Synergistic or TSE. 

Perhaps File Cabinet, from 
Apple, should be the one listed as 
"best buy"; it's free. Ask your 
computer dealer for a copy of 
Contributed Programs Volume 3, 
and you've got it. You may want 
to invest in the documentation 
booklet for Contributed Programs 
Volumes 3-5 for a mere $2. File 
Cabinet is fine for small data base 
applications. All the information 
resides in RAM; the disk is used 
only for initial reading of data or 
for saving files. It does allow a 
variable number of headings, some 
print formatting, and even column 
totals. The sort routine is rather 
slow, but what can you expect? If 
your application is small you 
should try this program before you 
sink in a lot of money. It will run 
with Applesoft and any disk 
system, but the storage capacity is 
proportional to the memory oif 
your computer. 

The most interesting data base 
program we reviewed is 
WHATSIT, from Computer 
Headware. It stands apart from 



the rest in that it is a free form 
data base rather than one 
organized in a table. It is more of 
a collection area for notes. Each 
entry consists of a subject, tag, and 
object, such as Cheryl's Birthday's 
June 5, Tom's Appointment's 
Friday, or Chris' Balance's 
69.95. You can request ail 
information about any Subject, 
Tag, or Object by saying 
something like What's June 5? 
(WHATSIT would reply with 
Cheryl's birthday, and anything 
else it knew about that date.) A 
wonderfully different approach, it 
also leaves many things undone. 
There are no print options; you 
can dump responses to a printer, 
but that's all. There is po 
provision for sorting, no math 
capability, and some changes of 
data are awkward. Even with 
these omissions it can be a very 
useful program, but the catch is its 
price: $150. WHATSIT is 
distributed by Hardhat Software, 
and requires 48K and Integer 
BASIC. 
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I have found an error in DOG 
STAR ADVENTURE in the May 
1979 S-80 SoftSide. This error has 
not b?en caught earlier as a result 
of the complexity of the program 
and the obscurity of the problem 
unless the listing has been studied. 
Two of the messages, variable M7$ 
and M8$ are not printed at the 
appropriate time; instead, the note 
"THAT'S STUPID!" is printed. 

This situation may be remedied 
by deleting line 7300, changing line 
7325 to: 

7325 IFLC 35 AND NO=34 PRINT 
M5$GOTO 2125 

and changing line 7375 to: 

7375 X=35:GOSUB 2I450:IF(Y=I 
OR Y LC) AND NO=35 THEN 
PRINT "I DONT SEE 
HER.":GOTO 2125 ELSE IF 
NO=35 THEN PRINT M7$: K=I: 
FOR 1=1 LO: IF OB{I,0)=22 
THEN 7525 ELSE NEXT I: 
GOTO 2650 

Otherwise, the program was 

fantastic. 

Thomas Hanlin III 



TIHME 

DIMENSIONAL 
GRAPHICS 
PACKAGE 



by Tim Hays 



Construct data base 

by entering geometric 

coordinates, then 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, high resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. 

$29.95 



A 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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Preschool I.Q. Builder 

Age: Three to six 

Skill: Reading readiness 

Available for: Apple II Integer (16K) 

PET (minimum 8K) 

TRS-80, Level II (16K) 

Number of programs: Seven to 12, 

depending on the computer. 

Materials: One chrome oxide cassette and 

Instruction Guide. Decals for key 

identification are also included. 

Description: This series of program 

teaches vital congnitive skills that children 

must possess to do well in school. In Part 

One, Sarr\e and Different, The child 

discriminates between two forms — for 

example, square/circle or A/P. 

In Part Two, Letter Builder, the child 
matches a letter on the screen to one on the 
keyboard. Children can work on their own 
after a few minutes of instruction. 

$14.95 

Memory Builder: Concentration 

Age: Six and older 

Skill: A concentration-like game designed 

to improve memory and reading skills. 

Available for: Apple II Integer (16K) 

TRS-80, Level II (16K) 

PET (minimum 8K) 

Number of programs: Four 

Materials: One chrome oxide cassette and 

Instruction Guide. 

Description: Memory Builder: 

Concentration is a game that will improve 

memory, attention span and mental 

concentration. The first two games involve 

matches of single letters. Game three uses 3- 

letter words and Game four uses 4-letter 

words. In order to make a match, the student 

must be able to read the words and 

remember their locations in the grid. 

The player is given three options - play 
against the computer; play against himself; 
or, play against another player. The program 
is especially good for adults to play with 
children. ^^^^^ 



Step By Step: How to Program in BASIC 
Age: High-school students and older 
Skill: Programming in BASIC for the 
beginner. 

Available for: Apple Applesoft (16K) 
PET (minimum 8K) 
TRS-80, Level II (16K) 
Number of Programs: 32 
Materials: Three cassettes and 64-page 
workbook. Materials are packaged in vinyl 
storage binder. 

Description: Step By Step is a 
programming course for beginners. It 
introduces all the important BASIC 
commands and programming logic, 
including simple string logic and one- 
dimensional arrays. A lesson on graphics is 
also included. The version for each 
computer explains the unique features of 
that computer and how to use them. 

The lessons are interactive - presented in 
a question and answer format on the 
computer screen. Each lesson is followed by 
a quiz and there are two final exam programs 
at the end of the course. When each lesson is 
completed, the student practices what he or 
she has learned and is given sample 
programs to work with and modify. 

$49.95 




Call toll free 
1-800-258-1790 

(in N.H. call 603-673-5144) 
P.O. Box 68 Milford, N.H. 03055 
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CCA DATA 5° 

MANAGEMENT SYSTEM 

• Complete, manual in a three ring binder 

• Handles 1 or 2 disk drives 

• Written in BASIC, with instructions tor writing your own pro- 
grams to use DMS files, including I/O routines. 

• Create, add, update, or delete files easily. 

• Search any field for any data. 

• Sort by any field. 

• Print reports, selecting any fields in any order, and maintain 
totals and subtotals on any numberic fields. 

• Print mailing labels. 

• Print records selectively, for example, only customers with 
New Yorl( addresses. 

• Complete index in manual 

• Scan function to report statistically on file. You might ask how 
many accounts are overdue and receive a report that started 
10 records found in 200 records scanned (5% of file). 

• Automatically tests line printer ready state to avoid system 
lockup. 

• Printer alignment pattern for labels. 

• Warning issued if you try to compact data without creating a 
backup. 

• On Disk (32K) Applesoft ROM, or TRS-80. 

• Works in conjunction with Visicalc. $99.95 plus $2 
shipping for the Apple. $74.95 plus $2 shipping for the 
S-80. 




VISICALC 



Now you can dispense with pencil, paper and calculator — instead you can have an "electronic sheet" 
to do your calculations, pro|ectlons. and planningi 

Calculate sales proiections. Income taxes, personal budget, cost estimates, engineering change — 
even balance your checkbook. Visicalc is partitioned into a matrix of rows and columns. At 
each position in this matrix you can define a title, formula, or number. By writing on your 
"electronic sheet" you can set up individualized charts, tables, and records. For 
example, you can design your own sales forecasting format to assist In making the 
important "What if?" business decisions. 

What would happen If sales increased by 10%? 

What if delivery time were decreased by 2 weeks? 

What would be the result if I produced 500 widgets this 

month instead of 600? Wtiat if I produced 700? 
Let Visicalc assist you in performing these calculations and save you countless hours. 
Visicalc requires 32K, Applesoft and disk drive. $150.00 
TRS-80 and Atari versions available soon! ^|^^ 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH cill 673-5144) 
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PROGRAMS FOR 
YOUR COMPUTER 



KINGDOM (CX4102) 

This educational program cassette simulates the 
running of a small agricultural kingdom. Catastrophe 
may befall vour people, your food supply or your 
crops. You determine the farming strategy and if you 
are successful you are allowed to reign another term 
Teaches and develops mathematical skills. $14.95 

BASKETBALL (CXL4404) 

You can dribble, shoot, pass, block shots, and even 
make steals. Five different game variations allow one, 
two, three or four players to compete. Play against the 
computer, your family or friends. This game uses up to 
four Joystick Controllers. Cartridge. tog gc 

BLACKJACK (CX4105) 

Play one of the most popular casino games at home 
with your ATARI Personal Computer System The 
computer is the dealer and it plays by the rules You, 
on the other hand, bet money and decide whether to 
stand, draw another card or double down in your 
efforts to hit 21 One cassette. j-i^ gc 

COMPUTER CHESS CXL^009] 

You can play chess against the computer Eight levels 
of play are available. Moves are made using a Joystick 
Controller. The chess board and pieces are shown on 
the screen. Both "castling" and "en passant" moves 
can be made by you or the computer The board can 
be set up for a particular chess problem or situation 
The computer can play either white or black Uses one 
Joystick Controller. Cartridge $39 95 

STAR RAIDERS (CXL4011) 

A state of war exists between the Atarian Federation 
and the Zylon Empire Your mission: Destroy all Zylon 
star ships This strategy and action cartridge features 
four mission skill levels and rates a player at the end of 
each session. Dramatic sounds and screen displays 
make this the most exciting space game available 
today. Your battleground is the entire galaxy Meteors 
fly through space; Zylon fleets surround and destroy 
friendly star bases, and docking at a starbase enables 
you to receive a new supply of energy and repair 
damaged equipment. For one player; uses a Joystick 
Controller $59.95 

SUPER BREAKOUT (CXL4006) 

This cartridge is a sophisticated version of the popular 
electronic video game BREAKOUTTm, In which you 
smash through layers of bricks and knock out a wall. 
Four different games are available, up to eight players 
can play, and a rating is displayed at the end of each 
game. You can optionally suspend play or request up 
to five additional serves. This cartridge uses up to four 
Paddle Controllers $39.95 

HANGMAN (CX4108) 

This educational program cassette has 3 levels of play 
— Beginner, Intermediate, and Expert. You play 
against the computer by guessing the word the 
computer has selected. If you do not guess the word 
after six tries the computer will hang your man. You 
may use the computer keyboard or an optional 
Joystick Controller to guess the letter Suitable for 
ages 8 to adult. $14 95 



3-D TIC-T AC-TOE (CXL4010) 

Now you can play Tic-Tac-Toe from a three- 
dimensional perspective This game cartridge also 
contains Bottoms-Up, a variation of 3-D Tic-Tac-Toe 
Match wits with the computer or compete against 
another player in either version One-player games 
feature eight difficulty levels Uses Joystick 
Controllers $39 95 

VIDEO EASEL (CXL4005) 

You can create a design or pattern on the screen using 
the keyboard or up to four Joystick Controllers, then 
watch as the computer expands on the original pattern 
indefinitely Many variations allow you to create 
imaginative and colorful graphic designs Options 
Include Drawing, Quad Drawing, Life (which uses the 
mathematic principles of John Conway's game of 
"LIFE"), resetting the color and six preprogrammed 
Painting designs Uses Joystick Controllers Cartridge 

$39.95 
AN INVITATION TO 
PROGRAMMING 1, 2, and 3 

These lessons are designed to teach the fundamentals 
of programming in ATARI BASIC A recorded voice 
asks you questions, waits tor you to respond, and 
indicates whether you are correct or incorrect These 
self-teaching courses will teach you to use BASIC 
programming statements as well as the color, graphics, 
sound and music capabilities of the ATARI Personal 
Computers Each lesson requires 8K of RAM 

$19.95 
MUSIC COMPOSERtm (CXL4007) 

Use this cartridge and the computer keyboard to 
compose songs, recreate old tunes, or experiment 
When you program musical notes through the 
keyboard, you hear the melody as it is simultaneously 
displayed on the screen You can change any note or 
the tempo And you can arrange the music to play 
different sections in the order you choose Once you 
have entered music, you can save it on the ATARI 410 
Program Recorder or the ATARI 810 Disk Drive You 
can also write BASIC programs that can convert a 



melody Into melody plus harmony. 



$59.95 



BIORHYTHM (CX4107) 

Use this program cassette to calculate physical, 
emotional and intellectual highs, lows, and critical 
days By giving the computer your birthdate you can 
plot a blorhythm chart on your television screen or 
optional ATARI Printer. ClAQ*i 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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The Microsoft 
Z-80 SoftCard. 
New Power for 
Your Apple II! 



Plug the new Microsoft Z-80 SoftCard into your Apple IItm and start using all of the 
system and application software written for Z-80 based computers. Software that you 
could never use before on your Apple II. 

The SoftCard actually contains a Z-80 processor and lets you switch between the Apple's 
6502 and the Z-80 with simple commands, so you can use software written for either 
processor. 

Starting with Two Software Standards. Versatile CP/M, the most widely used 
microcomputer operating system ever, is included on diskette in the SoftCard 
package, ready to run on your. Apple II. 

You get Microsoft's 5.0 BASIC, too, the most powerful version to-date of our famous 
BASIC interpreter. 

PRINT USING, 16-digit precision, CALL, and CHAIN and COMMON are just some 
of the major BASIC features you'll add. Applesoft's graphics extensions are still 
included. 

More Power Down the Line. You can get even more programming power and 

versatility by adding Microsoft's FORTRAN, COBOL, BASIC Compiler and Assembly 

Language Development System. All are available separately to run with the SoftCard 

system. 

And the whole host of CP/Mbased business, scientific and educational applications 

can be easily transferred to your Apple with SoftCard. 

The Microsoft Z-80 SoftCard is compatible with most every Apple product from the 
Apple II to the Apple II Plus, Language Card and peripherals. Independent peripherals 
for the Apple are supported as well. The SoftCard package requires a system with 
48K and a disk drive. 
$349 for SoftCard, CP/M, Microsoft BASIC and complete documentation. 



To Order TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 

TM Apple II IS a trademark d Apple Computer, Inc 
CP/M IS a registered trademark of Digital Rebearch 
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V/p DEVEI.OPrNG DATA BASE 
continued from page 51 

revisions in the future that will 
allow selective printing and 
formatting. 

The last subroutine for this 
month is the add routine in lines 
4000-4100. One is added to the 
number of items (note that NI 
started at -I, one less than the 
number of items as mentioned 
earlier), then the user is prompted 
with each heading and asked for 
the new data. The information is 
simply put at the end of the file 
after any already existing data. 
This means a sort subroutine will 
be handy in the future. 

At line 9000 is a short 
subroutine that gives an error 
message if you try to print a file 
with no data (see line 3000). This 
little routine will also be used in 
the future in conjuction with other 
subroutines. 

Following are listings of the 
program for the Apple with disk, 
for the S-80 with disk, 
modifications for an S-80 cassette 
version, and for the Atari with 
cassette and modifications for a 
disk version. Each month we'll 
print add-on or replacement 
modules that you can use with this 
basic program. In next month's 
issue we'll do the delete and 
alteration subroutines so you can 
correct any filing mistakes you 
make this month. This program is 
also meant to be interactive in 
more ways than one; we'd like to 
hear from you if you've got ideas 
or suggestions concerning it. We've 
got plenty of ideas of our own, but 
we'd like to create one of the best 
packages around and welcome the 
input. 

APPLESOFT VERSION 



10 REM SOFTSIDE'S DEVELOPING 

DATA BASE 
20 REM MARK PELCZARSKI, 1980 
100 Di = ""! REM CONTROL-0 
110 HOME : PRINT "(I) INniAQZE 

A NEW DATA SET" 
120 PRINT "(L) LOAD A PREVIOUSLY 

SAVED DATA SET ?"; 
130 GET AiJ PRINT A$ 
110 F A« = "L" THEN GOSUB 1000 

: GOTO 200 
150 IF A$ = "I" TI€N GOSUB 1500 

: GOTO 200 
160 GOTO 130 
200 HOME : PRINT "(S) SAVE CURRE 

NT DATA" 



220 F-RINT "(P) PRINT DATA" 

230 PRINT "(A) ADO DATA" 

290 PRINT "(Q) QUIT ?"! 

300 GET A$! F-RINT A$: P-RINT 

320 IF A$ = "S" THEN GOSUE: 2000 

330 IF M = "P" THEN GOSUB 3000 

340 F A$ = "A" THEN GOaJB 1000 

400 IF A* = "Q" THEN 500 

410 GOTO 200 

500 IF SS = 1 TfCN 540 

510 PRINT "CURRENT FILE IS NOT S 

Me. "5 F-RINT "CANCEL COrtWN 

D"' (Y/N) "i: GET A$ 
520 IF A$ = "Y" THEN 200 
530 IF A$ < > "N" THEN 510 
540 END 

1000 INF-UT "FILE NAME? "5F$ 
1020 PRINT Di;"OFtN";F» 
1O30 PRINT d$;"reao";f* 

1040 INPUT NH: input NI 

1110 MX = 100 

1130 DIM H$(NH),I*(MX,I*1) 

1140 FOR I = TO NH: INPUT Hid 

): fOT 

1200 IF NI = - 1 THEN 1280 

1240 FOR I = OnO NI 

1250 FOR J = TO NH 

1260 INPUT Ii(I,J) 

1270 NEXT J: next I 

1280 PRINT D$; "CLOSE" ;F$ 

1300 SS = i: RETURN 

1500 INPUT "GIVE YOUR FILE A fWM 

E : "IFf 
1510 IF F* = "" THEN 1500 
1520 INPUT "HOW WWY HE/»INGS? " 

1530 IF NH < 1 THEN 1520 
1540 NH = NH - 1:NI = - 1 
1550 MX = 100 
1560 DIMH$(NH),If(MX,f«) 

1570 for i = to nh 
1580 print "heading ♦"|i + ij: input 
" : ";h$(I) 

1590 NEXT I 

1600 SS = 05 R-ETURN 

2000 PRINT "USE "{Fi}" (Y/N)?"}J 

GET A$: F-RINT A$ 

2050 IF A$ = "Y" THEN 2100 

2060 IF A* < > "N" THEN 2000 

2070 INPUT "NAME? ";F$ 

2080 F F* = "" THEN 2070 

2100 PRINT D$;"OPEN";Ft 

2110 PRINT Di; "WRITE" ;F$ 

2120 PRINT NH: PRINT NI 

2130 FOR I = TO NH 

2140 PRINT Hid) 

2150 NEXT 



2220 F NI = - 1 THEN 2270 

2230 FOR I = TO NI 

2240 FOR J = TO NH 

2250 PRINT Ii(I,J) 

2260 NEXT J: NEXT I 

2270 PRINT Di;"CLOSE";Fi 

2280 SS = 1! RETURN 

3000 IF NI = - 1 THEN GOSUB 90 

00 ; RETURN 
3010 PRINT "(S) SCREEN OR (P) PR 

INTER";: GET Ai: PRINT 
3020 IF Ai = "P" THEN 3400 
3030 F Ai < > "S" THEN 3000 
3040 PRINT 
3050 PRINT "F-RESS <ISC> TO RETUR 

N TO MENU," 
3060 F-RINT "ANY OTHER KEY TO CON 

nf*£." 
3100 FOR I = TO NI 
3110 PRINT 
3120 FOR J = TO NH 
3130 PRINT Hi(J),Ii(I,J) 
3140 NEXT J 
3150 GET Ai; IF Ai = CHR-i (27) THEN 

RETURN 
3160 NEXT I 
3170 PRINT : PRINT "THAT'S tiL," 

: GET Ai 
3180 R-ETURN 
3390 REM PRINTER IS IN SLOT #1 

3400 PRINT Di;"PR#l" 

3420 FOR I = TO NI 

3430 PRINT 

3440 FOR J = TO NH 

3450 F-RINT Hi(J),Ii(I,J) 

3460 NEXT J 

3470 NEXT I 

3480 PRINT Di;"PR-#0" 

3490 RETURN 

4000 SS = o:ni = NI + 1 

4010 FOR J = TO NH 

4020 PRINT Hi<j);; iNFUT " ; ";i 
i(NI,J) 

4030 NEXT J 
4040 RETURN 
9000 PRINT "THERE'S NO DATA IN M 

EMORY." 
9010 FOR I = 1 TO lOOO; NEXT : RETURN 
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3000 IF NI = -1 GOSl«: 9000!RETURN 


1/ 


S-80 VERSION 


3010 PRINT"(S) SCREEN OR (P) PRINTER"} :G0SUB 60000JPRINT 
3020 IF A* = "P" THEN 3100 
3030 IF A* O "G? THEN 3000 




m CLSJCLEAfi 1000 


3010 PRINT 




110 F1<INT"(I) INITIAITTF A NEW MTA SET 


3050 F'RINT"PRESS (M) TO RETURN TO ffiNU, 




120 PRINT"(L) LOAD A fKLVIOUSLY SAVED DATA SET ?"J 


3060 PRINT"ANY OTHER KEY TO CONTINUE. 




130 UUSUB 60000 


3100 FOR 1=0 TO NI 




110 IF A$ = "L" GOSUe 1000:GOTO 200 


3110 PRINT 




150 IF A« = "I" (miP. 1500. 'GOTO 200 


3120 FOR J=0 TO NH 




lAO GOTO 100 


3130 PRINT H*(J),I»(I,J) 




200 CLS:PRINT"(S) save CURRENT DATA 


3110 NEXT J 




210 PRINT"(P) PRINT DATA 


3150 A»=INKEY$:F A$=""THEN 3150 ELSE F A»="M" THEN RETIKN 




220 PRINT" (A) ADO DATA 


3160 NEXT I 




230 PRINT"(Q) QUIT ?"! 


3170 PRINT:PRINT"TfWT'S all.":gosub 60000:RETURN 




300 Gusue 60000:PRINT 


3100 REM OUTPUT TO FfllNTER 




310 ff ffi = "S" GOSUE: 2000 


3120 FOR 1=0 TO NI 




320 IF A$ = "P" GOSUe 3000 


3130 LFIfINT 




330 F A» = "A" GOSUE 1000 


3110 FOR' J=0 TO NH 




310 IF M = "Q" THEN 500 


3150 LPRM H$(J),I$(I,J) 




350 GOTO 200 


3160 NEXT J 




500 IF SS=1 TfCN 510 


3170 NEXT I 




510 PRINT"CURR£NT FILE IS NOT SAVED."!PRINT"CANCEL COMMAND? (Y/N 


3190 RETURN 




) ";:gosub 60000 


1000 ss=o:ni=ni+i 




520 F A$ = "Y" TICN 200 


1010 FOR J=0 TO NH 




530 F A» O "N" THEN 510 


1020 PRINT H»(J);:iNPUT " ! ";i$(NI,J) 




510 END 


1030 NEXT J 




1000 input"filena«:";f$ 


1010 RETURN 




1010 0PEN"IM,F$ 


9000 PFaNT"THER£'S NO DATA IN MEMORY. 




1020 INPUT*1,W,NI 


9010 FOF; 1=1 TO iooo:next:return 




1110 MX = 100 


6C0O0 A$=M£Y«:iF A$=""THEN 60000 ELSE PRINT A«:RETURN 




1120 DIM H«(NH),I$(MX,NH) 






1110 FOR 1=0 TO nh:input«i, H$(I):NEXT 

1200 F Nl = -1 THEN 1280 










1210 FOR 1=0 TO NI 


MOCIFICATIONS FOR S-30 CASSETTE VERSION OF DATABASE 




1250 FOR' J=0 TO NH 






1260 INPUT»1, I$(I,J) 


DELETE lines: 




1270 NEXT J 


1010 




1280 NEXT I 


1290 




1290 CLOSE 


1510-1520 




1300 ss=i:r£turn 


2010-2050 




1500 DfUT "GII^ YOUR FILE A NA«";F$ 


2270 




1510 IF F$=""THEN 1500 






1520 INPUT "HOW MANY HEADINGS" jm 


CHANGE THE^ LINES! 




1530 IF NH < 1 THEN 1520 


lOOC INFtJT"PREPAF;E RECORDER TO LOAD, TtO PRESS <ENTER;>";A» 




1510 NH = NH - 1:NI = -1 


1020 INPUT*-1,NH,NI 




1550 MX = 100 


1110 FOR 1=0 TO NHtlNPUTM, HtlDtNEXT 




1560 DIM H»(NH),I$(MX,NH) 


1260 INFUT*-1, I*(I,J) 




1570 FOR 1=0 TO NH 


1500 INF'UT "HOW MANY HEADING3";NH 




1580 PRINT"HEADING ♦";i + D.'INPUT " : "{Htd) 


1530 F NH < 1 THEN 1500 




1590 NEXT I 


2000 INFUT"F'REF'ARE RECORDER TO SAVE, THEN PRESS <INTEF:>";A$ 




1600 ss=o:retiw( 


2060 FWNTM.NH.NI 




200C PRINT"USE ";f$;" (y/n)?";:gosub 6dooo 


2080 PRINT*-1, H$(l) 




2010 IF A» = "Y" THEN 2050 


225C F'RINT#-1,I»(I,J) 




2020 F A* C- N" THEN 2000 






2030 INPUT "NAME";F» 






2010 F F»="" THEN 2030 


ATARI VERSION 




205C 0P£N"0",1,F$ 


10 DIM A«(50):X4KL(II)>0.8 




2060 PRINT#1,NH,NI 


20 DIM H$(Xi0.1),»(Xi0.9) 




2070 FOR 1=0 TO NH 
2080 PRINTS, H$(I) 


100 UPtN ♦2,1,0,"K:" 

lit, PRINT "XI) IN1IIAIT7F A NEH DATA SE 




2090 NEXT 


T" 

120 PRINT "(L) LOAD A PREVIOUSLY SAVED D 




2220 F NI = -1 THEN 2270 




2230 FOR 1=0 TO NI 
2210 FO;; J=0 TO NH 


ATA BASE ?"} 




2250 PRINT»1,I*(I,J) 


130 GET ♦2,A:PRIMT CHR«(A) 




2260 next;next 


110 IF CHR$(A)="L" THEN ROSUB 1000:GOTO 




2270 CLOSE 


200 




2280 SS=1:R£TURN 
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The most 
realistic 
simulation of 
a pressurized 
nuclear reactor 
available . . . 

THREE MILE 
ISLAND 



trom 



[TILSE 



Is the technology really too 
complex for ordinary mortals to 
handle? Decide for yourself. 

Four spectacular displays 
monitor the containment building, 
turbines, filters, condenser, 
reactor core and pump house. 

Valves, pumps, turbines, filters 
and control rods are Individually 
activated by keyboard command. 

Comprehensive documentation 
describes in detail the operating 
mechanisms and component 
interactions. 

Can you avoid all possibility of 
radiation leaks into the 
atmosphere while still making a 
profit? 

Are you fast enough to avoid 
the necessity for extensive 
evacuation of the population? 
Integer BASIC 48K, $39.95 



TO ORDER 
TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



continued from previous page 

150 IF CH«(A)="I" THEN GOSUB ISOOiGOTO 

200 

m GOTO 110 

200 FIONT "XS) SAVE CURRENT DATA" 

220 PRINT "(P) PRINT DATA" 

230 PRINT "(A) ADO DATA" 

290 PRINT "(Q) QUIT ?"; 

300 GET ♦2,A:PRINT CHR*(A) 

320 IF CHR»(A)="S" THEN GOSUB 2000 

330 IF Crt?»(A)="P" THEN GOSUB 3000 

StO IF CHR»(A)="A" THEN GOSUB 5000 

100 IF CHR*(A)="Q" THEN 500 

110 GOTO 200 

500 F SS=1 THEN 510 

510 FfINT "CURRENT FILE IS NOT SAVED. ":P 

RI^^■ "CANCEL coMfWiw (Y/N) ";;get *2,a: 

PRIMT CH?«(A) 

520 IF CHR<(A)="Y" THEN 200 
530 IF CHR$(A)0"N" THEN 510 
510 END 

1000 PRINT ;PRINT "HIT RETURJJ Wf£N READY 
TO READ";!INFUT A$ 
1020 PDH 761,12;0PEN ♦1,1,0,"C:" 

1010 MVr *1,NH 

1011 INPUT *uta. 

1012 INPUT ♦1,HL 

1013 INPUT *1,IL 
1110 MX=1 

1110 INPUT JliH* 

1200 F NI=-1 THEN 1280 

1260 INPUT »1,I» 

1280 CLOSE #1 

1300 ss=i:return 

1500 FIONT '.fKIHl "HOW mit HEADINGS"!. *I 
NFUT NH 

1530 IF NWa THEN 1500 

1532 FWNT "ENTER hAXIhUM HEADING LENGTH 
";:iNPUT H. 

1531 IF HL<1 THEN 1532 
1510 NW=NH-1!NI=-1 
1550 MX=100 

1560 H»="":i»="" 
1570 FOR 1=0 TO NH 

1580 fKDU "HEADING ♦"JI+U" :";:iNPUT A 
$ 

1581 IF L£N(A«)>HL THEN PRINT "IWaMUM L 
ENGTH IS "IHLJ". REENTER":G0T0 1580 
1583 IF LEN(A$)<HL THEN A»(LEN(A*)+1)=" 
";GOTO 1583 

1585 Ht(LEN(H$)+l)=A« 
1590 NEXT I 

1600 ss=o:return 

2000 print tprint "hit return wfcn ready 

TO SAVE";:iNPUT A* 
2100 POKE 761,12:0PEN *1,8,0,"C:" 

2120 PRINT *1;NH 

2121 PRINT tUNI 

2122 PRINT *1JHL 

2123 PRINT *i;iL 
2130 PRINT ♦1;H$ 

2220 ff NI=-1 THEN GOSUB 9fl00:RETURN 
2250 PRINT »i;i$ 
2270 CLOSE *1 

2280 ss=i:return 

3000 f nl=-1 ticn gosub 9000!return 



3010 PRINT .'PRINT "(S) SCREEN OR (P) FW 

NTER ?".*PRINT 

3015 GET ^(A 

3020 F CHR«(A)="P" THEN 3100 

3030 F CHR«(A)0"S" THEN 3015 

3010 PRINT "PRESS <ESC> TO RETURN TO MEN 

U," 

3050 PRINT "ANY OTtCR KEY TO CONTINUE." 

3060 RL=(»ftl)iIL 

3100 FOR 1=0 TO NI 

3110 PRM 

3120 FOR J=0 TO NH 

3130 PRINT H$(JiHL+l,Jitt+HL),I*(IiRL+l+ 

J«ILJiRL+JiIL+IL) 

3110 NEXT J 

3150 GET »2,A 

3155 IF A=27 THEN RETURN 

3160 fEXT I 

3170 PRINT iPRINT "THAT'S ALL." 

3175 GET #2,A 

3180 RETURN 

3100 RL=(NH+l)iIL 

3110 RL=(NH+l)iIL 

312'' FDR 1=0 TO NI 

3130 LPRM " " 

3110 FOR J=0 TO NH 

3150 LFKWT H$(JxH.+l,JiHL+HL),I$(IiRL+l 

+JiIL,I«RL+J«IL+IL) 

3160 NEXT J 

3170 NEXT I 

3190 RETURN 

1000 ss=o:ni=ni+i 

1005 IF IL=0 T^CN PRINT iPRINT "ENTER fM 
XIMUM ITEH LENGTH";. 'INPUT IL 
1008 IF IL<1 THEN IL=0:GOTO 1005 

1010 fwn IFOR j=o TO m 

1020 PRINT H*(jin.+i,jin+n);" ; ";:iNP 

UT A$ 

1022 F LEN(A$)>IL THEN PRINT "TOO LONG. 
MAXIMUM SIZE IS "JILI". REENTER" .'GOTO 1 
020 

1025 F LEN(A$)<IL THEN A»(LEN(A$)+1)=" 
"JGOTO 1025 

1030 I$(LEN(I$)+1)=A$:NEXT J 
1010 RETURN 

9000 mm "THERE'S NO DATA IN «MORY." 
9010 GET ♦2,A:RErURN 
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DISK CHANGES TO ATARI 
DATABASE 



30 DIM F»(20) 

1000 PRINT :PRINT "ENTER BFUT FILESPEC" 

;:INFUT F$ 

1020 a»="d:":a»(len(a«)+i)=f»:op£n *i,i, 

0,A$ 

2000 PRINT :PRINT "ENTER OUTPUT FILESPEC 

";:imn f$ 

2100 a$="d:";a$(len(a$)+i)=f$:open #i,8, 

0,A$Q 



EDITORIAL 
continued from page 4 

great potential, and learning about 
computers is worthwhile in itself. 
Beyond that, they can also be a lot 
of fun. With such a variety of 
software available everyone can 
find something they like. And the 
capabiHties will keep growing, just 
Uke in all the science fiction you 
see. I used to find it amazing how 
fiction writers could prophesize so 
well about the future until I 
realized that they provide the ideas 
in the first place; the scientists and 
technicians create things in the 
vision of the future with which 
they've been provided. 



© 



TRS-80 PROGRAMMING HINT 



While recently making a game 
program, I became somewhat 
annoyed at the rather "slow" rate 
at which my graphics filled the 
video. Referring to my "Level II 
BASIC Reference Manual" (page 
8/6) I found a small program 
which illustrated the speed at 
which the video could be whited 
out by POKING the value of 191 
into the video RAM. It was 
apparent that their idea could be 
applied to my program, but I still 
found this method too slow. 

After experimentation I found a 
very simple routine illustrated in 
the "Level II BASIC Reference 
Manual". I have applied my basic 
concept to several of my programs, 
and have found it especially useful 
in repeated graphic displ lys. It 
requires some modification to the 
users specific needs, but regardless 
of this, the concept remains the 
same. Below is the routine: 

10 CLEAR 64 

20 FOR X = 1 TO 16: PRINT 
STRING$(64,CHR$(191));:NEXT 

As you can see, the concept is 
very simple. Yet I cannot recall 
seeing this method used to date. I 
hope that you might find this 
routine of some use, as it was 
helpful to me. 

David W. Morris 
Atlanta, Georgia 



SARGON 

This is the one that started the revolution in computer chess. 
Six levels of play from beginning through advanced amateur. 
Ready whenever you are. 

SARGON II 

The best has gotten better! Sargon, the program that came in 
first in the Creative Computing Microcomputer Chess Tourna- 
ment has become Sargon II. A greatly improved game, faster 
response time, new level for beginners, easier to pre-set board, 
hint mode— what does the computer suggest. Sargon II is the 
program that took on the maxi-computers in the West Coast 
tournament, and finished in the money! More thinking power 
than you ever expected. 

. — « TO ORDER TOLL-FREE 

^ 1-800-258-1790 ^ 




TRS-80 


APPLE 


Sargon-(tape) $19.95 


16K, Level II 




Sargon ll-(tape)$29.95 


16K, Level II 


24 K 
Machine Language 


Sargon ll-(disk) $34.95 


32K, Disk 

1 ._ .._ 


48K 

Machine Language 
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TheSaitware Exchange 

market Bosket 

TO ORDER TOLL FREE 

1-800-258-1790 



SOFTWARE 
FOR THE 
TRS-80 



(In NH call 673-5144) 



^ GAMES 
TRS-8a Opari Thattra 

Magnificent sound! by Richard Taylor 

Level II. 16K $9.95 

Oiiliinga 

Word game with sound by Richard Taylor 

Level II. 16K $9.95 

Brldga Challmgtr 
by Personal Software 

Level II. 16K $14.95 

Invitlon 

by Chris Freund 

Level II. 16K $9.95 

Disk $14.95 

XWIng Flgntir II 
by Chris Freund 

Level II. 16K J9.95 

Tilpan 

by Art Canfil 

Level II. 16K $9.95 

Sargon Oint 

by Dan and Kathe Spracklen 

Level II. 16K $19.95 

SariMll 

by Dan and Kathe Spracklen 

Level II. 16K $29.95 

on disk $34.95 

Amazlti' Mazai 
by Robert Wallace 

Level II. 16K $9.95 

Siuka Eggi 

With sound by Leo Christopherson 

Level II, 16K $14.95 

Ula fm 

With sound by Leo Christopherson 

Level II. 16K $14.95 

Android NIm 

With sound by Leo Christopherson 

Level II. 16K $14.95 

Baa Wary 

With sound by Leo Christopherson 

Level II. 16K $14.95 

Tycoon 

by David Bohike 

Level II. 16K $7.95 

9 Gamaa lor Praachool Children 
by George Blank 

Level II. 16K $9.95 

End Zona II 

by Roger W. Robitaille 

Level II. 16K $9.95 

Space Battlat 
by Level IV 

Level II. 16K tape $14 95 

32K disk $19.95 

StarTrak 

by Lance MIcklus 

Level M. 16K $14.95 

Advonlurat on Tape 
by Scott Adams 

Level II. 16K $14.95 

Choose one: 

Adventureland: Magical beings, perils and puzzles! 

Pirate's Cove: Clue in a bloodsoaked book. 

Mission Impossible: Foil the saboteur, save the 
reactor! 

The Count: Protect your neck! Who do you think lives 
here? 

Voodoo Castle: Remove the curse from Count 
Cristo. 

Strange Odyssey: The ruins of an ancient alien 
culture? 

Fun House: Takes all your brains to get past the gate! 

Pyramid of Doom: Watch out for the Nomad! 

Ghost Town 
Advantym on DIak 
by Scott Adams 
$39 95 for three-game combinations: 

1) Mission Impossible. Pirate's Cove. Adventureland 

2) Voodoo Castle. The Count. Strange Odyssey 
$24.95 for two-game combinations: 

3) Fun House. Pyramid of Doom 
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Adventure Samplir 

by Scott Adams 

Mini-version of Adventureland. serves as introduction 

Level II. 16K $5.95 

Pork Barrel 

by George Blank 

Level II. 16K $9.95 

Barricade 

by Small Systems Software 

Machine Language $9.95 

Panlomlnoei 
by James Garon 

Level II. 16K $7.95 

Mean Chackari Machine 
by Lance Micklus 

Level II. 16K tape > $9.95 

Disk $14.95 

Krlagaplal II $14.95 

Time Trek 

by Joshua Lavinsky 

Level II. 16K $14.95 

Kamikaze 

by Russell Starkey 

Level II. 16K $7.95 

Fastgammon 

from Quality Software 

Level II. 16K $19.95 

CrIbbiga 

by Roger W. Robitaille Sr. 

Level II. 16K $7.95 

Galactic Empin 
by Doug Carlston 

Level II. 16K $14.95 

Galactic Trader (a sequel) 
by Doug Carlston 

Level II. 16K $14.95 

Galactic Revolution 
by Doug Carlston 

Level II. 16K $14.95 

Galactic Trader and Empire 

on disk 32K $29.95 

AII3ondlak $39.95 

Airmail Pilot $7.95 

Air Traffic Controller $9.95 

Air Bald 

by Small Systems Software 

Level I or II. 4K $9.95 

Loot Dutchman'a Gold 
by Teri Li 

Level II. 16K S9.95 

Original Adventure 

by Microsoft as played on PDP-10 

32K disk $29.95 

PIgakIn (Football) 
by Acorn Software 

Level II, 16K $9.95 

PR Dogfight 

by David Bohike 

Level II. 16K $7.95 

Joumiy to the Cantor ol Iho Earth 
by Greg Hassett 

Level II. 16K $7.95 

Sao SoftSlde on caaaettaa lor additional gamu 
Oataatonea ol Ryn 

cassette $14.95 

disk $19.95 

Starfleet Orion 

cassette $19.95 

disk $24.95 

Invaalon of Orton 

cassette $19.95 

disk $24.95 

Morloc'a Tower 

cassette $14.95 

disk $19.95 

Raacua at RIgal 

cassette $19.95 

disk $24.95 

Tampla a( Apakal 

cassette $24.95 

disk $29.95 



HOURS: 

MONDAY - FRIDAY 
9 AM to 9 PM 
SATURDAY 
11 AM to 3 PM 




Vj 



EASTERN TIME 



Interlude 

cassette $14.95 

disk $17 95 

Bl-Bomber $15,00 

Nukewar $15.00 

MMway Campaign 

$15.00 

North Atlantic Convoy 

Bildara S15 00 

Planet MInara 

$15.00 

PInball 

cassette $14.95 

disk $20.95 

Amateur Aatronomy 
Handbook 

cassette $14.95 

Computer Blamark 

cassette $49.95 

3^ BUSINESS 

Inventory Syatam 11.3 

by M. Kelleher 

Improved version $79.95 

Inventory 'S* 

by Roger W. Robitaille. Sr. 

Level II. 16K tape $24 95 

32K disk/without invoicing $39.95 

with invoicing $59.95 

Payroll 

by Stephen Hebbler 

Oisk32K $39.95 

Mall Llat II 
bySBSG 

32Kdisk $49.95 

Small Bualnoii Bookkeeping 
by R.W. Robitaille. Sr. 
Level II, 16K with journal 

disk J36.95 

tape $31.95 

without journal 

disk $29.95 

tape $24.95 

Account! Racelvabla(with invoicing) 

by Stephen Hebbler 

3 disks, 2 manuals: 32K, 2 drives, line 

printer $69.95 

CCA Data Managamant Syatam 

from Personal Software 

Ready for transfer to disk, with manual 

Tape $74.95»$2 



if SPECIAL PURPOSE 



.$9.95 



HIatograph/Scattargram 
by Gary Breschini 

Level II, 16K 

Tiny Comp A BASIC Compiler in BASIC 
by David Bohike 

Tape $1995 

Disk $2495 

RPN Calculator 
by Russell Starkey 

Level II, 16K $995 

Ham Radio 

by Michael Kelleher 

Level II, 16K $9.95 

Ham Radio 

Advanced version for 32K 

disk $24.95 

Elaclronlc AaalaUnt 
by John Adamson 

Level II, 16K $9.95 

Baalc SlatlatIca 
by Steve Reisser 

Level II, 16K $9.95 

Magic Paper Calculator 

by Russell Starkey 

Level II, 16K $14.95 



Kiyboird 80 (Improved) 
by John Adamson 

Level II, 16K $9.95 

Scrlpill $95+52 

Oynimic Dill Biu 

by Ken Knechi 

Manual and 3 programs on disk (or 32K or larger 

systems with one or more drives $39.95 

•^ PERSONAL 

Typing Tutor 

by 80 US 

Level II. 16K $19.95 

I dilng/Blorhythmi 

together $9.95 

Swriti ol tha Tirol 
Cardi ol Fonum 

together $9.95 

Personil Flninci 
by Lance Micklus 

Level II. 16K $9.95 

AdvaiKid Pirionil Ftniiwo 
by Lance Micklus 

32KdiSk $24.95 

Homo Fbiinclil Mimgomtnt 
by Michael Kelleher 

Level II. 16K $9.95 

Porlodlcal Cnui Rilirinci 
by Dave Stambaugh 

Level II, 16K $14.95 

32Kdisk $19.95 

Rtoti 

by Bill Sholar 

32k disk $19.95 

5|C UTILITIES 

T'Short 

by Web Associates 

Level II, 16K $9.95 

Z80 Zip Cooimini) 

disk $29.95 

IRV 

by Robin Mork 

Level II, 16,32, and 48K 

cassette $24.95 

disk $29.95 

APL-n 3.0 

by Phelps Gates 

Deluxe version— 32K disk $39.95 

Level II, 16K tape— reduced features, no course or book 

$14.95 

Book (separately) $16.95 + $3 

All Minigor 80 
by Nepenthe 

32K disk $49.95 

Automitad Disk Droclory 
by George Blank 

32K disk, requires NEWDOS $14.95 

STAO 

Trace and Debug Monitor for tape and disk systems 16. 

32 and 48K on one tape $24.95 

NEWDOS by Apparat $49.95 

MEWOOS* by Apparat $99.95 

NEWDOS 80 by Apparat $149.00 

RSM2 by Small Systems Software 

Level II, 16K $26.95 

88M20 by Small Systems Software 

Disk for 16-48K on one tape $29.95 

KVP by Lance Micklus 

Tape #232 $14.95 

Disk $19.95 

STBO Smirt Tormlml 
by Lance Micklus 

Level n. 16K $49.95 

8T800 Smrlir Titnilnil 

by Lance Micklus 

For Disk $79.95 



NOTICE 

All prices are subject to change 

without notice. The Software 

Exchange Is not responsible for 

typographical errors, including 

prices. 

* TRS-80 Is a trademark of .Tandy 
Corporation 



ST80-UC dedicated to THE SOURCE 
by Lance Micklus 

Level II, 16K $24.95 

ST80 III 

by Lance Micklus $150.00 

Micro Text Editor 
by Don Coons 

Level II, 4K or 16K $9.95 

Uvel III BASIC 

by Microsoft $49.95 

Levtl I In Level II 
by Apparat 

Level II, 16K $15,00 

FORTRAN 
by Microsoft 

32K, 2 disks $80.00 + $2 50 

Aiumblir 
by Microsott 

32K $80.00 + $2.50 

FORTRAN Plus Assembler $150.00 ♦ $5 

Spool 

Will print an ASCII tile to a parallel line printer at the 
same time you are using your computer for another 
program For 32K disk systems only. Will NOT work 
with NEWDOS (2.3 or VT()S 3.0 OK). 

Disk $24.95 

Cross Rafiranct Utilltlis 

by Lance Micklus 

Level II cassette versions 

RENUMX (XREF with RENUMBER and rescue after 

reset) $14.95 

RENUMBER separately $7.95 

RX— Cross Roloronci lor Disk 
by Lance Micklus 

32K, 1 disk $24,95 

RENUMBER 

by Lance Micklus 

The full-featured RENUMBER program. One version 

now works in 16K. 32K, or 48K $7.95 

Syslam Copy 

by Kalman Bergen 

Level II, 16K $9,95 

Floppy Disk Dlignostic 
by Dave Stambaugh 
Disk with manual $24.95 

:Jlc. BOOKS 

Sirgon Hindbook 

by Dan and Kathe Spracklen $15,95 + $1 

The BASIC Hindbook 

by Dr David A. Lien $14.95*$1 

Z-80 Instruction Handbook 

by Sceibi Publications $5.95* $1 

Tha LItUa Book of BASIC Style 

by John Nevison $5.95 ♦ $1 

Patbwiys Through the ROM 

$19.95 + $1 

TRS-BO Assofflbly Linguigi 
Progrimmlng 

by William Barden, Jr $3.95 ■•$1 

API — An bitaricllva Approach 

by Gilman and Rose $16,95 + $3 

Learning Laval II 

by Dr. David A. Lien $15.95 + $1 

Z-80 Saftwira Gourmet Guide ind Caokbook 

from Sceibi Publications $15.95 +$1 

TRS-80 ask and Oltior Mystarlos 

by Harvard Pennington $22.95 ♦ $1 

TRS-BO Interlacing 

by Jonathan Titus $8.95 ♦ $1 

Sicrat Guide to Computars 

by Russ Walters $5.95 + $1 

Inlormitlon Minagamont Syttm 

$11.95*$1 

Calculaling with BASIC $8.95 *i^ 

Undantindlng Micro Cooiputin 
$9.95+$1 



Take my Computer Please 
Learn Micro Computers 
Micro Computer Pot PourrI 



.$5.95-l-$1 



. $14.95 ♦$! 
..$3.95* $1 



Personal Information Minigamant Systam 

Sceibi Publications $11.95* $1 

TRS-80 Inlerfacing 

by Jonathon Titus $8.95 ♦ $1 

Z-80 and BOBO Assembly Language Programming 

by Kathe Spracklen $7.95 ♦ $1 



3^ SUPPLIES 



Csssettes: Boxes of 10 each 

C-10 $6.95t$1 

C-20 $7.95 + $1 

Diskettes: 

Dysan (premium quality) 

Box of 5 $29.95 • $1 

BASF 

Box of 5 $19.95 ♦ $1.50 

Box of 10 $34.95* $2 

Case of 100 $299.00 ♦ $3 

Scotch 

Box of 10 $39.95* S2 

Diskette Stongi Box $5.00 * $1 

Floppy Armor" 

Protective envelopes for shipping floppy disks. 

5 pack $4.95 *$1 

SoftSlde Vinyl Binders $4.95 * $1 

Tipa Recorder Alignment Kit $9.95 * $1 

Floppy Disk Savers $14.95 

Floppy Disk Rolllls $7 95 



• No sales tax. 

• All C.O.D.'s or special 
delivery orders are a minimum 
of $5.00 for special handling. 
For more details descriptions of 
our software and supplies sehd 
for the TSE Catalog - it's FREE! 
Write or call today for your copy: 

TOLL-FREE 

1-800-258-1790 

(In NH call 673-S144) 

SoftSlde Publications, 
P.O. Box 68, Milford, NH 03055 



/ 



? ? MOVING ? ? 

TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROM YOUR 

LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 



\ 



Name _ 
I Address 
I City 



State. 



.Zip. 



MAIL TO: SoftSide Publications, P.O. Box 68, Milford, NH 03055 
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INPUT 

continued from page 10 

been the work of a local 
programmer, and figuring that if 
the program was no good, at least 
the cassette would be useful to 
store programs, it was a real 
bargain at $2.95! 1 questioned the 
store personnel concerning the 
contents of the tape but the only 
information they could give me 
was that they had played it and it 
was fun. 

I have enclosed the tag that was 
affixed. This tag bears the Radio 
Shack logo, Tandy Copyright, and 
lists the contents, quantity, and 
price. 1 will send the cassette to 
you once I have a mail address or 
to your attorneys if you prefer. 

Needless to say, 1 did find the 
program enjoyable and while 
listing it I came across your "all 
rights reserved" and authorship 
statements in lines 5 and 10. At 
that point I began to suspect the 
copy I had bought was a "pirated" 
version. I became further 
suspicious of the copy I had and 
checked out the software for sale 
ad in SoftSide S-80 magazine. I 
found a program listed as "Snake 
Eggs with sound" by Leo 
Christopherson for $14.95, which 
prompted me to write this letter. 

I do not buy or use pirated 
software. 1 realize the expense and 
effort involved in writing and 
debugging programs. 1 feel that we, 
the end users, are as much a victim 
as the authors if such practices are 
allowed to continue. No one will 
want to provide quality programs 
for home computers if he cannot 
hope to realize a fair return for his 
efforts. 

1 thought you would be 
interested in knowing of this. 1 do 
not believe Radio Shack is 
involved but rather feel one or 
more of their employees saw an 
opportunity to make some money; 
money at the author's expense. 

If this practice catches on. that 
of using a large, respected and 
established marketing firm as an 
outlet for "pirated" software, then 
the future does appear bleak for 
programmers and legitimate 
software dealers . . . 

I have stored the cassette 
separately and will send it to any 
address you give me. 

I wish you good luck in stopping 
this particular pirate. But as you 
and I know, the real solution is for 
the end user to refuse to buy or use 
pirated software. 
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Respectfully, 
Robert N. Perkins 
Tucker, Georgia 

To: George Blank: 

I've turned the information over 
to our Divisional Vice President 
for that area. You should hear 
further from him or me as soon as 
he has checked it out. 

Our company stores are not 
permitted to sell ANY non-Radio 
Shack software'. . . ESPECIALLY 
not "pirated". Thanks for sending 
the information. 
Ed Juge 
Radio Shack 

Return of the Pirate 

Dear Roger, 

I am DEEPLY moved that you 
published my letter on page fifty of 
July SoftSide. I had to read it 
from a friend who let me Xerox it. 
I let my subscription expire last 
month. 

YOUR guilty that issue of doing 
just what the third paragraph says. 
1 purchased "Lost Dutchman's 
Gold' and 'Adventure' and what 
shows up in July? Anything new or 
helpful? No! The same stuff I 
already have because 1 purchased 
it. So why buy the software AND 
subscribe to SoftSide for $24.00 
only to get the S-A-M-E programs. 

You also do a review of 
Adventure - it's been reviewed in 
EVERY other magazine 8 months 
ago and now again in 80- 
Microcomputing. 

You only take issue with the 
0=0. You didn't defend or take a 
position on points I - 2 - 3 & 4 so 
you must think they're OK, but 
receiving a copy of a program isn't! 
I - Copy machines are in about 
all libraries by now and books are 
still being written. 

2. - Over one million video 
recorders were bought last year 
and 2 new companies are putting 
them out. People are taping NEW 
movies off the cable system and 
still new movies are coming out 
each week! 

3 - Local radio stations are 
saying ON THE AIR they'll be 
"playing a new LP tonight 
WITHOUT interuptions so get 
youi" tape-recorders ready" - still 
new records come out each week! 

4 - You deny number 4 and your 
an ass. 

1 don't care if Lance Micklus 
stops writing "games", etc. or any 
one else. I bought a COMPUTER 
to write my OWN programs, not a 



video arcade to play just games. 
The software market won't dry up. 
There's two programmers to replace 
one lost one. Maybe it should dry 
up a little and let these people who 
bought COMPUTERS (not game 
machines) read their manuals and 
write they're own software. 1 wish 
SoftSide everything it deserves. 
Sincerely, 
Your Friend from page fifty 

P.S. Webster's 7th New 
Collegiate Dictionary: Pirate 
# 2b, pg. 644 - To lure (a 
worker) away from another 
employer by offers of betterment. 

You've never done that high!? 

We would like lo express our 
appreciation to our software pirate for 
stimulating such a good discussion. We 
were able lo determine who he is from the 
information in the letters and the 
postmarks, hut will honor his desire to 
remain anonymous. G. W. B. 

Sound Controversy 

Dear SoftSide; 

I am writing in response to 
Sherry Taylor's response to my 
sound interface article that 
appeared in your June issue. 
Although the method described 
works, it is quite inflexible. For 
example, if the resistor in the 
circuit was taken out and replaced 
with a variable resistor 
(potentiometer) with a value of 
about 20-50K, and the battery was 
replaced by a standard 9 volt type, 
the result would be a more 
powerful amplifier with a volume 
control. 

I also have a comment on your 
magazine. The past few issues were 
absolutely fabulous, and 1 learn 
more with each issue. Good luck 
with your new format, but whether 
SoftSide looks like TV GUIDE or 
THE SCIENTIFIC AMERICAN, 
it will always be the best computer 
magazine. 
Edward Ting 
Attleboro, Massachusetts 




Dear SoftSide, 

After reading Sherry Taylor's 
letter on a sound interface, we 
think we have a better idea. Just 
disassemble your tape recorder and 
attach a set of wires from the 
recorder speaker to the earplug 
outlet. This allows you to hear 
sound by pushing the play and 
record buttons down and also 
allows hearing your tape as it is 
being loaded. 
Sincerely, 

Ron Cellini & John Fin 
Philadelphia, Pennsylvania. 

ConfUSR 

Dear Sirs 

If it was your intention to drive 
budding programmers wild then 
you have succeeded beyond your 
wildest dreams. Consider this line 
from COMBAT GALAXY or is it 
GALAXY COMBAT, no matter: 
5001 DEFUSR = 13*256+12 
I've looked in all of my BASIC 
books but to no avail. How about 
a little help. 

Thanks 

Rich Eidmann 

Philadelphia, Pennsylvania 

Dear Rich. 

Sorry/or the confusion. You're nol the 
only one who was surprised by that 
DEFUSR. Il is a disk command to set up 
USR calls. Level II does this same thing hy 
POKEing the entry address into locations 
16526 and 16527 (see page 81 7 in your 
Level II BASIC reference manual). How 
can a disk command he in a Ijevel II 
program, you ask? The answer is that the 
author did not want his program to become 
obsolete when you eventually get that disk 
drive. In Level II. the disk routine does 
indeed cause an error, hut if you look at 
line 105, you will see that errors send the 
program to line 1 0000. Guess what we find 
thereV. A test for the expected "U J" error 
and a couple of POKEs into none other 
than 16526 and 16527. 

One person wrote in to say that he 
Slopped typing the program in when he got 
to the disk stuff. He was quite angry at us 
for publishing a program which {he 
thought) would nol run in Ijevel II. If he 
had kept on typing, he would have found 
thai the program works fusi fine'. - J.G. 
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APLSO 



VERSION 3.0 



APL80, a large subset of the 
powerful mathematically elegant APL 
language of the IBM 5110 .. . you 
can create matrices with up to 64 
dimensions and manipulate them 
with over 60 built-in functions and 
six different kinds of user defined 
functions. Syntax of functions is 
identical with the IBM version. 

Improved Disk version now includes 
Monadic and Dyadic Transposition, 
choice of dimension format, latent 
expressions, COPY, random and 
sequential files, and double precision 
arithmetic. 

16K Level II Tape version $14.95. 
Enhanced Disk Version $39.95 (32K 1 
disk). Book APL: An Interactive 
Approach by Gilman and Rose $16.95 
plus $3 shipping. Send SASE for data. 

TO ORDER 
TOLL FREE 

1-800-258-1790 



(In NH call 673-5144) 




continued from page 45 




seRsafcioRal 
software 

AIR TRAFFIC 
CONTROLLER 

This real-time machine language 
program puts you in the chair of a 
busy air-traffic controller. 27 prop 
planes and jets are depending on 
you as they take off, land and fly 
over your air space. You give orders 
to turn, maintain a holding pattern, 
change altitude, approach and land 
at either of two airports. 

Written by an air traffic controller, 
this realistic fast-paced simulation 
includes navigational beacons and 
the requirement that planes take off 
and land into the w/ind. The 
program's continuously variable 
skill level assures that you won't 
soon tire of this instructive and 
absorbing simulation 

In Air Traffic Controller you 
assume responsibility for the safe 
flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. 
During your shift as a controller in 
charge of this airspace 26 aircraft 
become active and under your 
control. Jets and prop planes have 
to be guided to and from the two 
airports, navigational beacons and 
ten entry/exit fixes. The aircraft 
enter the controller's airspace at 
various altitudes and headings 
whether or not you are ready. 

Air Traffic Controller retains the 
basic realism of air traffic control. 
This program requires the same 
steady nerves under pressure and 
the same instant, almost instinctive, 
analyses of complex emergencies 
which are demanded of a 
professional air traffic controller. 
But "ATC" adds the excitement and 
well-defined goals of a game. This 
is just a simulation, and all 
passengers left in air traffic limbo 
by a panicked player will live to 
fly another day. 

Air Traffic Controller Is 
available for the 16K TRS-80, the 
Apple II, and Apple II plus on 
cassette for $9.95 

TO ORDER 
TOLL-FREE 

1-800-258-1790 
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(In NH call 673-5144) 




302 


FREQ. 1 


DEX 


303 




BEQ 320 (TO TOGGLE 1) 


305 


ENV.l 


DEY 


306 




BEQ 328 (TO TOGGLE 2) 


308 


FREQ. 2 


DEC IF 


30A 




BEQ 330 (TO TOGGLE 3) 


30C 


ENV. 2 


DEC IE 


30E 




BEQ 33A (TO TOGGLE 4) 


310 


DUR 1 


DEC lA 


312 




BEQ 317 (TO DUR. 2) 


314 




JMP 302 (TO FREQ. 1) 


317 


DUR2 


DEC 19 


319 




BNE 302 (TO FREQ. 1) 


31B 




JMP 351 (TO D DURATION) 


31E 




NOP 


31F 




NOP 


320 


TOGGLE 1 


LDA CO30 (READ APPLE SPEAKER PORT) 


323 




LDX 6 (RELOAD FREQUENCY 1 COUNTER) 


325 




JMP 305 (TO ENV. 1) 


328 


TOGGLE 2 


LDA CO30 (READ APPLE SPEAKER PORT) 


32B 




LDY 7 (RELOAD ENVELOPE 1 COUNTER) 


32D 




JMP 308 (TO FREQ. 2) 


330 


TOGGLE 3 


LDA CO20 (READ CASSETTE PORT) 


333 




LDA 8 (RELOAD FREQUENCY 2 COUNTER) 


335 




ST A IF 


337 




JMP 30C (TO ENV. 2) 


33A 


TOGGLE 4 


LDA CO20 (READ CASSETTE PORT) 


33D 




LDA 9 (RELOAD ENVELOPE 2 COUNTER) 


33F 




STAIE 


341 




JMP 310 (TO DUR. 1) 


344 


REST 


LDX #OC 


346 


DELAY 1 


DEX 


347 




BNE 346 (TO DELAY 1) 


349 


DELAY 2 


DEC lA 


34B 




BNE 344 (TO REST) 


34D 


DELAY 3 


DEC 19 


34F 




BNE 344 (TO REST) 


351 


D-Duration 


LDA ID 


360 


INITIALIZE 


LDA 6 (FREQUENCY 1) 


362 




LDX IB (VOICE) 


364 


SHIF I 1 


LSR (TIME WIDTH IS SET AS ASSIGNED 
BY VOICE). 


365 




DEX 


366 




BNE 364 (TO SHIFI' 1) 


368 




TAX 


369 




LDA 8 (FREQUENCY 2) 


36B 




LDY IB (VOICE) 


36D 


SHIP 12 


LSR 


36E 




DEY 


36F 




BNE 36D (TO SHIKl' 2) 


371 




ST A IF 


373 




LDA 7 (ENVELOPE 1) 


375 




TAY 


376 




LDA 9 (ENVELOPE 2) 


378 




STA IE 


37A 




LDA 19 (DURATION 2) 


37C 




STA ID (D DURATION) 


37E 




JMP 302 (TO FREQ. 1) 


353 




BEQ 35E 


355 




STA 19 


357 




LDA #00 


359 




STA ID 


35B 




JMP 302 (TO FREQ. 1) 


35E 




RTS 


35F 




NOP 



I.ONE STAR CORRAL 


1030 pr'M!Fi;;int"note: the horse can'T move 


continued from page .15 


MO A SQUARE WITH A 


Lines lOOO-lOSO.* Instructions sutiroutine 


FENCE ALREADY IN ITI";!GnSIIF:9998 


1000 CLS;PRINTCHRt(23);Ttf:(5)"M LONE STAR CORRAL" tPRINTTAeO); 


1010 PRINT"THE OEJECT OF THIS GW(E IS TO 


STRING«(20,t5);F'RINT" 


COMPLETLY BOX THE HORSE IN SO 


THE SUN IS STARTING TO SET 


THAT HE CAN'T MAKE A MOVE. 


OVER TIC FAR RIDGE, THE OlY 




THING KEEFING YOU FROh SUPFER 


THIS MUST BE DONE IN THE FEVtST 


IS at£ LAST HORSE TO FENCE-IN 


NUMEER OF MOVES HUHOUT PLACING 


FOR TfC NIGHT." 


A SECTION OF FENCE ON THE HC«SE 


1010 PRINT" BUT «'S A FAST HOR'SE, HE'S 


THUS HUR'TING HIM." 


SO FAST THAT YOU KNOW WHERE HE 


1050 F'RINT!PRINnAB(6)"G00D LUCK PARTNERI"! 


HAS JUST A MOMENT AGO, AND WT 




NOW. YOU DO KNOH HOWEVER TfttT 


Line 9998! Print the prcmpt. 


* MUST BE IN ONE CF THE SPOTS 




^EXT TO WICRE HE HAS LAST.";G0SUe9998 


9998 PRINTI?961,"(F'RESS ENTER TO CONTINUE)"! 


1020 PRINT"FOR EXAMPLE, IF THE ";CHR$(31);"0"!CHR«(31)J" SHOWS 




HIERE Tit HORSE WAS LAST, THEN 


Line 9999! Upon hitting ariy key, the screen clears except 


THE ";ciw(3i);"X";cHR»(3^);" shows where m. HUkst 


for the top two lines and then coritrol returns to the 


COULD BE NOH!":F'RINT:PRINTTAe(10);"X X X":PRINn«(10)"X X".'F1? 


M3in prograM. 


INnAB(10)"X X X" 


9999 A$=INKEY«:FA$=""THEN9999ELSEF1<INT0192,CHR«(31)!!RETURN 
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Who will take 
complete control of 
the earth? In Global 
War, a highly detailed 
projective map of the 
earth's continent is 
divided into forty 
regions. The 
computer assigns 
each player a portion 
of the regions and 
starting armies. The 
players can allocate 
armies to specific 
regions or attack 
another player's 
territory. 




^ [TILSE 



The object of the 

game is to take 

control of the earth. 

This adult strategy 

game for two to nine 

players comes 

complete with 

instruction manual 

and rule book, and 

needs Applesoft ROM 

or Apple II Plus. 

Cassette 32K 

$17.95; Disk (48K) 

$24.95. 



To order call TOLL FREE 1-800-258-1790 



In NH call 673-5144 



f^ 



75 



WANDERING ALONG 
continued from page 16 

containing 255 elements. We then 
loaded the appropriate data into 
each element corresponding to 
what BASIC interprets it to mean. 
For instance, B$(49) is the digit '1'. 
B$(65) is an uppercase letter 'A'. 
B$(97) is a lowercase letter 'a'. 
B$(178) is the word 'PRINT'. And 
B$(247) is equivalent to 'CHR$'. 
For other BASIC keywords, check 
out "Pathways," page 42. 

Sounds reasonable. ..now when I 
PEEK at a memory cell and it 
returns the number 178, I simply 
print B$(178) and I will see the 
word 'PRINT' rather than a 
period. Since the only numbers 
that may show up are to 255 (255 
is the largest one-byte number), 
and we've created an array 
containing all 255 possible 
characters/ keywords, the program 
will now function perfectly! Right? 
Wrong! What about all the Hne 
numbers? How do we recover 
them? And what about line feeds? 
Where does one line end and the 
next line begin? And how can we 
figure out exactly where the 
program itself begins and ends? 
DOWN TO THE NITTY- 
GRITTY: 

Page 62 of "Pathways" informs us 
that 40A4 hexadecimal contains the 
pointer to the start of our BASIC 
program. It actually takes two bytes 
to do this, so we need 40A4H (least 
significant byte) and 40A5H (most 
significant byte) to do the job (16548 
and 16549 in decimal). (Note that the 
program doesn't start here; this 
.simply tells us where the program 
begins.) Looking at line 30060 in 
"LIST", we see that SI has been set 
equal to 

PEEK(16549)*256 plus PEEK 
(16548) - 1. 
SI is now the starting location of the 
program. (For our purposes here, we 
also subtracted one in order to 
recover the first line number.) 

For the meantime, S2, the end 
address, has been set to .32767 
which is the end of your 16K 
RAM (line 30060). BASIC does 
something curious. ..the next 
memory location after 32767 is not 
going to be 32768, it will be - 
32768! From there is proceeds with 
-32767, -32766, -32765, ... -16385 to 
complete a 32K system. If you 
happen to possess 48 K, it will 
continue with 

-16384,-16382,-16381,...-!. S2 
will now be set to the actual end of 
your computer's memory. 
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According to "Pathways", page 64, 
the top of BASIC memory pointer 
is contained in 40B1H (16561) and 
40B2H (16562). Therefore, line 
30200 calculates your memory size 
as 

PEEK(I6561) plus 256*PEEK 
(16562). 
Should this number be 32767, then 
you only had I6K of memory, and 
the program ends. Otherwise the 
program continues looking through 
memory from the new start location 
(SI equals 32768) to the new end 
location (S2). 

When the program encounters 
the command END (byte 128), the 
run is terminated (see line 30160). 
Unless this byte shows up, the 
program will go to the end of your 
memory size. (Without the END 
statement in 30320, the program 
will continue but what you see will 
be meaningless.) 

Now for line feeds and line 
numbers. Between lines in memory, 
there are five bytes. The first one is 
a '0', indicating the end of a line. 
(This is why we had to subtract 
one in line 30060 - to find the 
zero.) When we encounter this, we 
will print a line feed - CHR$(10). 

The next two bytes contain the 
RAM address of the next line in 
the program. We don't need these 
for our present purposes. 

But the last two of these five 
bytes contain the line number 
itself! That's why line 30110 
calculates the line number as being 

PEEK(X + 3) plus 256*PEEK 
(X + 4). 
The rest of the line does a little fancy 
finagling to convert the number to a 
string; knock off the blank space in 
front of it, and add a blank after it so 
everything will appear exactly as it 
should on the screen. 

AT LAST: 

And now we're finished! The 
program should find its own 
beginning location; recover the line 
numbers; reproduce all words. 



numbers and variables as they 
appear in the original program; 
and terminate itself when it 
encounters the END statement in 
30320. 

Try listing the program and then 
run it. What's this? It looks like a 
slow listing of the program itself! 
In other words, we've just written a 
program which lists itself! Listing 
and running it have the same 
effect. 

Wow! What a waste of time that 
was. Or was it? Maybe the results 
of this little program aren't 
particularly spectacular, but it did 
provide some insight into how 
BASIC stores programs in 
memory. And the information 
we've gleaned might help in future 
programming ~ certainly if we do 
any assembly language work 
(which is what the rest of 
"Pathways" will help us with). 

AND YET A LITTLE MORE: 

Incidentally, if you have a disk 
system and would like to save 
"LIST" as an ASCII file, you 
could merge it with another 
program and then GOTO 30000 
and have "LIST" list your first 
program. If you do, be careful that 
your line numbers are all lower 
than those in "LIST". If your 
program contains DATA lines, 
then it won't work (unless you read 
all of that data first and then 
GOTO 30000). And the listinjg will 
stop when it encounters the first 
END command. If you put an 
END someplace other than the last 
line, "LIST" won't list all of your 
merged program. 

Take the time to study "LIST". 
It's rather interesting and does 
make use of some important 
information you might need. The 
program itself may not be 
powerful, but its contents are! And 
if you want to go further, make it 
easy on yourself and buy a copy of 
"Pathways Through the ROM" At 
$19.95, it's a bargain! 



10 REM FtEK-hEM 

20 REM 07/08/80 

30 REM RffiERT F. NICHOLAS 

-to CLS:S3=FEEK(16561)+25AiF'EEK(16562) 

50 PRM"ENTER STARTING NUhEER FOR SEARCH (0 T0"S3")";;iNFUTV 

AO IFV<0OR'V>S3THENF-RINT:PRINT'WERfLOW":GOTO50 

70 IFV ::32768THENS1 =y 1 32=32767 ! GOTO90 

80 Sl=-65536+U:S2=-A5536+S3 

90 FORX=S1TOS2 

100 Z=F'EEK(X) 

110 REM IF UNF'RINTAEIE CODE THEN REPLACE WITH A PERIOD 

120 IFZ<310RZ>127THENF'RINT".";:GOT0110 

130 PF:INTCHR'»(Z); 

HO NEXT 



continued on next 



page 



continued from previous page 

150 IFS2<0TH£NEND 

m S2=-A5536+S3 

170 S1=-32768:GOT090 

30000 REM SELF-LISTING EV^SIC PROGRAM 

30010 REM 07/08/80 

30020 REM ROEiERT F. NICHOLAS 

30030 CLS:CLEAfil00O;DIMet(255) 

30010 GOSUE30230 

30050 REM START-OF-eASIC-FflOGRAM FAINTER STORED IN RAM LOCATIONS 

: START=256«PEK(16519)+FtD;(16518). TO CALCULATE FIRST LINE N 

UMBER, THIS PROGRAM SUBTRACTS ONE, 

30060 Sl=FtEK(165'(9)x256+F£EK(16518)-i:S2=327A7 

30070 F0RX=S1T0S2 

30080 REM FttK AT PRESENT LOCATION. F CO TI€N NOT AT END OF L 

INE YET, 

30090 Z=PEEK'(X) :IFZ<>OTHEN30HO 

30100 REM AFTER FINDING A SINGLE ZERfl HE USE FOLLOWING BYTES TO 

RECONSTRUCT THE LINE NUMBER ITSELF, THEN HE DO A LINE FEED, PRI 

NT THE LINE NUMBER FOLLOWED BY A SF'ACE AND SKIP TO THE FIRST BYT 

E IN THAT Lift, 

30110 Zl=PEEK(X+3)+256«FEEK(X+4):Zl»=STR$(Zl):Zl»=RIGHTt(Zl»,L£N 

(zi$)-i):printchr$(io)+zi»+" ";:x=x+i:goto3017o 

30120 ROI in THE LINE ABWt, CHRi(lO) WAS THE LM FEED, Zl$ WAS 
THE LINE NUWER AND X=X+1 SET THE RAM COUNTER TO TfC FIRST BYTE 
OF INFORMATION IN THE PRWRAM LINE 
30130 REM PRINT THE AffROPRIATE CODE FOR' THIS BYTE. 
30H0 PRINTB$(Z); 

30150 RtM DID HE HIT THE 'END' OF THE PROGRAM YET' 
30160 IFZO128THEN30170ELSE30320 
30170 NEXT 

30180 REM IF YOU'VE MERGED THIS WITH ANOTHER BASIC PROGRAM AND H 
AWE MORE THAN 16K OF MEMORY, THEN THE NEXT SECTION COMPUTES THE 
NEW START AND END ADDRESSES AND RETURNS TO TtC FOR .'NEXT LOOP IN 
30050 

30190 IFS2<OTH£N30320 

30200 S2=PEEt( ( 1 6561 ) +256xFEe; ( 16562 ) ', FS2<=32767THEN30320 
30210 S1=-32768;S2=-65536+S2:GOT030070 

30220 REM CREATE ARRAY OF ASCII CHARACTER'S AND INTERNAL COOES FO 
R BASIC KEYWORDS 

30230 FORX=OT0255:READf;»;X):NEXT 

JOZiO DATA »,.,.,.,.,.,.,*,,,«,,,.,.,»,,,,,,,*,,,,,,,.,,,,,,,«,. 
,,,,,.,,,#) ,.),,#,$, A, &,',(,),",''',•,',•,/, 0,1, 2, 3, 1,5, 6, 7, 8, 9 
,"!",.,<,=,>,,, e,A,B,C,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S,T,U,V,H,X 
,Y,Z,i,.,. , >,. 
30250 DATA e,3,b,c,d,e,f,9,h,i,j,K,l,M,n,o,p,q,r,s,t,u,v,w„'<,y,z 

,., EH), FOR, RESET, SET, CLS,CMD, RANDOM, NEXT, DATA, INF'Ur, DIM, 

READ , LET , GOTO , RUN , IF , RESTORE , GOSUB , RETURN , REM , STOF' , ELSE , IRON , TRfl 

FF,D£FSTR,DEFINT,DEFSNG,DEFDa. 

30260 DATA LINE, EDn,ERR'OR, RESUME, OUT, ON, OF'EN, FIELD, GET, PUT, aOS 

E , LOAD , MERGE , NAME , KILL , LSET , R'SET , SAVE , SYSTEM , LPRINT , DEF , F-OKE , PRI 

NT , CONT , LIST , LLIST , DELETE , AUTO , CLEAR , CLOAD , CSAVE , NEW , T/« , TO , FX , U 

SING , VARf'TR , USR' , ERL , EF1< , S TRING$ 

30270 DATA INSTR,F'OINT,TIME», MEM, INKEY$, THEN, NOT, STEP, + ,-,«,/,., 

AND,OR',>,=,<,SGN,INT,AES,FR£,INP,F'OS,SQR,RND,L0G,EXP,COS,SIN,TfW 

, ATN , F-EEK , CVI , CyS , CUD , EOF , LOC , LOF , MKI$ , MKS» , MKDi , CINT , CSNG , COBL , 

FIX , LEN , STR< , UAL , ASC , C«« , LEFTS , RIGHT! , MID* 

30280 DATA .,.,.,.,. 

30290 R01 SPECIAL ASSIGW1ENT CODES (ARR-OWS COMMAS AND QUOTES) 

30300 B»(209)=Cf«*(91);B»(91)=Ctt<*(91);B$(123)=CHR»(91):B»(92)=C 

HR'»(92):B*(121)=CH<$(92):E<(93)=Ctt;,'$(93):B1(125)=C«»(93)!B$(91) 

=0«$(91):B«(126)=Ctf'»(91):B$(95)=CHR$(95):E<(127)=CHR$(95) 

30310 B*(63)=CHR'«(63):B*(31)=CHR»(31).'B'$('M)=CHR<(11):Bt(59)=CHR 

«(59):B$(10)=C»:<(10):B$(13)=CHR$(13):E:»(25)=CHR»(25):B<(26)=C*' 

*(26):RETURN ^i^ 

30320 EW) VjJ 




PROGRAMMING 



r 



HINT 



Here's a machine language 
version of the "Tension Breaker" 
program; it's much faster than the 
BASIC program, and it's only 21 
bytes long. Just poke in the 
numbers with the routine provided, 
and then jump to 32000 with the 
SYSTEM command. To regain 
control, press the RESET button. 
100 FOR X=32000 TO 32020:READ Y: POKE X.YJJtXT 
200 DATA 205,201, 1,33,0,56,126,183,10,3,205,51, 0»121,251,57,10,2 
11,35,21,211 

DISASSEMBLED LISTING 



Address 


Machine 


Mnemonics 






Code 






7D00 


CDC901 


Call 01C9H 


;clear the screen 


7D03 


21 00 38 


LD HL,3800H 


;starting address of 
keyboard memory 


7D06 


7E 


LD A,(HL) 


;put character in A 
register 


7D07 


B7 


OR A 


;if no character, 


7D08 


2803 


JRZ,$ + 05H 


;skip video routine 


7D0A 


CD 33 00 Call 0033H 


;print character at 








cursor 


7D0D 


7C 


LD A.H 


;if keyboard scan 


7D0E 


FE39 


CP39H 


;is completed, then 


7D10 


28 Fl 


JR Z,$-ODH 


;start again from 
7D03H 


7012 


23 


INCHL 


;continue scan 


7D13 


18 Fl 


JR $-ODH 


;get next character 
at 7D06H 



Interesting Combinations 

WERJKL 
WEF<--* 

G*--* 

ASD (after screen is filled) 

Norman Efroymson 
Shaker Heights, Ohio 



12345789 

WFK (while holding down, 

press and release OP) 




'*On,UJno fl-slecl your opm»on?' 
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[HLSE 



View two text screens at 
once; Keep notes on one 
and edit the other. 
Complete cursor control. 
Built in floating point math. 
Automatic tabbing. 
Delete character, word, line 
or screen. 

Right, left, or center justify. 
Unlimited text movement. 
Global search and replace. 
Complete file merging 
capabilities. 

Automatic page numbering. 
Upper and lower case. 

Superscripts, subscripts 
and underscoring. 



For the APPLE II and 

APPLE II Plus, 48K 

$99.95 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH Mil 673-5144) 



continued from page 45 

Lines II 00 - 1 120 take care of the 
case where the line is drawn in the 
Y-direction. (Solve the above 
equations for X if you don't believe 
me!) 

Lines 5-60 allow us to test the 
subroutine. First, you are asked for 
the co-ordinates of two points. If 
they do not live on the screen, line 
30 will send you back to do your 



homework. After line 40 has 
cleared the screen, line 50 will turn 
on your two specially selected 
points. After a short but reverent 
pause, line 60 calls the line-drawing 
subroutine (note that A, B, C and 
D are known to the machine at 
this point). After another pause, 
the computer will ask for another 
pair of test points. 



5 CIS 

10 INPUT"1ST POINT (A,B)";A,B 

211 IWUT"2ND roiKT (C,0)";C,D 

30 FA<OORA>1270RB<OORBM70RC<OORC>127(»D<OORO>57THENRUN 

10 as 

50 set(a,B):set(c,d):fori=ito30o:next 

60 gosub1000:printed,;:fori=lto300:next:goto10 

1000 F ABS (B-0) > tes <ft-C) THEN 1100 
1010 FOR X=A TO C STEP SGN (C-A) 
1020 SET (X,B+(B-0)/(A-C)i(X-A)+.5) 
1030 NEXT:GOT01130 . 
1100 FOR Y=8 TO STEP SGN(D-fi) 
1110 SET(A+(Y-B)i(C-A)/([>-e)+.5,Y) 
1120 ItXT 

1130 a=c:b=o:return 



In the interest of speed and 
memory conservation, the 



subroutine may be shortened as 
follows: 



1000 F«£S(B-D)><^<A-C)THEN1100 

1010 E=(B-^))/(A-C)!F=6+.5:F0RX=AT0CSTEPSGN(C-A):SET(X,F+EI(X^^)) 

:iCXT!(X)TO1110 

1100 E=<C-A)/(D-6)!F=A+.5:F0RY=8T00STEPSGN(D-B):SET(F+(Y-6)iE,Y) 

!NEXT 

1110 a=c:b=*:reti«n 



The subroutine is set up to allow 
you to easily connect the beginning 
of a new line to the end of the last 
line (see line 1 130). Thus to create 
a diamond, centered in the middle 



of the screen, we could use the 
following (assuming the line- 
drawing subroutine was at line 
1000): 



5CLS 






10 A=63: 


B=0 




20 C=127: 


D=23J 


GOSUB 1000 


30 C=63: 


o=v: 


GOSUB 1001 


10 c=o: 


D=23: 


GOSUB 1000 


50 C=63i 


D=o: 


Goste 1000 


60 GOTO 60 







Notice that after the first line, 
only the ending co-ordinates need 
to be specified for each subsequent 
line. 

While this article began as an 
attempt to simulate the DRAWTO 
and HPLOT commands of the 
Atari and Apple, it is apparent that 
the line-drawing subroutine can 
have its uses as a stand-alone TRS- 
80 feature. Enjoy it! 

(Note: The second subroutine 
listed can be used in Joan 
Truckenbrod's graphics routine if 



the following changes are also 
made: 

Line 60 in that program should 
put the figure toward the center of 
the S-80's 128x48 screen. 

Line 100 should be CLS. 

Line 180 should be A=NX: 
B=NY 

Line 220 should be C=NX: 
D:=NY: GOSUB 1000) 
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STRATEGY PACK I 6404 

Roman Checkers. This ancient game has been 
a favorite for hundreds of years. It couldn't be 
easier to play, yet playing the game well takes 
skill, cunning, and strategy as you try to out- 
think your opponent. 

Frame up. Try to out-manuever your opponent 
or play against the computer in this game of 
wits and calculated strategy. You will alternate 
selecting numbers and controlling your 
opponents choices. Joysticks are optional. 
2 programs on cassette $19.95 



STRATEGY PACK II 6405 

Target Chase. Choose a partner or challenge 

the computer to this fast action, catch-or-be 

caught adventure. 

Tunnels. In this electronics hide-and-seek, only 

the computer knows where you will appear 

next. 

Survival. Intercept your opponent before you 

crash or are devoured. 

Snake Hunt. Fast maneuvering and quick 

response are essential to capture - or escape 

from - your opponent. Joysticks are required. 

4 programs on cassette $19.95 



SKILL BUILDER I 6406 

Bingo Duel. This fast-action skill game for one 
or two players provides an exciting challenge, 
because young children and adults can 
compete equally. The computer adjusts to 
match your skill and problems are specifically 
selected to help you gain speed. 
Number Hunt. Matching numbers Is easy 
enough for young children, yet this computer 
game quickly advances in difficulty to 
challenge the experts. Joysticks are required. 
2 programs on cassette $19.95 



WALL STREET CHALLENGE 6402 

This computer simulation of the stock 
exchange is easy to play and always 
challenging. Invest in several corporations 
ranging from Municipal Power and Light, a blue 
chip stock that usually provides steady growth, 
to Offshore Industries Limited, a high-flying 
speculative stock that is certain to change 
often. Stock charts, and the Dow Jones show 
you the trends. Both 8K and 16K memory 
versions are Included. 
Cassette $1 4.95 



ALL STAR BASEBALL 6401 

This computerized version of America's 
favorite sport is full of fast action fun. Each 
player takes a turn at bat while the other player 
is both pitcher and the outfield. Innings, score, 
batting averages, and even errors are 
calculated by the computer and displayed on 
the official scoreboard. Balls, strikes, and ail 
plays are called with absolute precision. 
Joysticks are optional for both players. Both 8K 
and 16K memory versions included. 
Cassette $ 1 4.95 



MIND MASTER 6403 



This classic strategy game takes on a new 
dimension as the computer designs the hidden 
problems and reports the results of each guess. 
Multiple players may compete against the 
computer and each player may select the level 
of difficulty that matches their skill, ability, and 
patience. This program also contains a formula 
for solving logic problems. Create the answer 
and watch the computer use deductive logic to 
discover the secret code. Both 8K and 16K 
versions. 
Cassette $14.95 

TO ORDER TOLL FREE ,,, 

1-800-258-1790 A 

(In NH call 673-5144) ^ I ^ 



continued from page 23 

Lines 310H50: Match section 

This section handles the special case of tuo 
Hatching prize selections. Line 310 display a 
fwssage and waits a short period before continuing. 
The two squares are blanked out in line 320. Line 330 
prints another nessage and lirie 310 adds the prize to 
the pla^r's prize list. Lines 350 through 370 fill 
in the pieces of the puzzle and wait for a nonent 
before asking in line 380 for the pla^r's guess at the 
puzzle. Lines 390 thro(.igh 110 accept the guess using 
the INKEYI connand. If the guess is correct the 
progran junps to the next section; otherwise^ the sane 
plawr continues at line 190. A check is nade at line 
125 to see if there is only one square left. If there 
isi there can be ro further natchesi obviouslai and the 
prograH jumps to line 600. 

310 FiaMTe965,CHM(31)," m A MATCH! n i"; :F0RTI=1T 
OlODOtNEXTTI 

320 PRiNTeLi,B$(i);R«;e«(i);:PitiNTa.o,B«(i);R«;B$(i); 

330 PRINTe965,CHR$(31);"HERE WS TWO HDRE PECES OF THE PUZZLE!" 

t 

310 PR(P,0)=PR<P,0)+i:PR(P,PR(P,fl))=A(H):iFA(H)=fPTHENPR(P,PR(P, 
0))=A(H1) 

350 a(H)=o5A(hi)=o:primth.o,b«(v«.(left»(t»(h>,i)));r«;w(val(ri 

GHT«(T»(H),1))); 

360 PRIMTH.l,B»(VAL(LEFT«(T$(Hl),l))5;W}e«(VAL(RIGHT$(T$<Ml),l) 

)); 

370 FORn=lT0500:ND(m 

380 PRINTe965,CHR$(31);Y$(P);", Vm IS THE SECRET NUMBER? "i 

390 G»=INKEY$:G»=""!FORI=1T05 

100 h»=inkey«:fh*=""t>cnioo 

105 FASC(H$)<18(]RASC(H»)>57THEN100 

110 G$=G$+H$:PRINTH»;;NE)fn:FORn=lTO200:NEXTTI 

120 IFG»=S$TtCN160 

125 J=0!FORI=lTO35:j=J+SGN(A(I)):>CXT:ffJ=lT>CN600 

130 PRIKTe965,Ct«$<31);"S0RRY! "',G%'," HAS WRONG, BUT YOU MAY CO 

NTINUE"} 

HO FORn=lTO1000:>EXTTI 

150 GOT0190 

Lines 160-5105 Puzzle has been solved 

The solijtion has been guessed and uinrdrigs are dis- 
played. Lines 160 throt.igh 190 show the complete 
puzzle. After a delay, lines 500 through 520 display 
the winner's prizes. Lines 525 and 526 indicate total 
winriings for both players to date and lines 530 and 510 
wait for player input to begin a new gawe. 

160 FORI=lTO35;iFA(I>=0THEN190 

170 R&=INT((I-1)/5):CO=I-R0«5:K=«0i128+(CO-1)i12-61 

180 F0RJ=lT02:PRIMT»<+J«61,M(VAL(MID$(T«(I),J,l)));:tCXTJ 

190 NEXn!FORTI=lT010flO:NEXm 

500 CLS:Tfl=0:PRINT" 

YOU GOTH, ";Y$(P)!"!" 

510 PfiINT"THAT MEANS YOU WUE HON T»E FOLLUING: ":FaRJ=lTOPR(P.O 

) 

515 RESTORE:FORI=lT010:READZ«:MEXn 

520 FORK=lTOPR(P,J):REAOP«,M:NEXTKJPfaMTUSING" X Z HO 

RTH «$««";p*,m:to=to+m:nextj 

525 PRINT"THAT IS A TOTAL GF »";T0:MT(P)=«T(P)+TO:PftINT" 
SO F(f( THIS SESSION, "}Y»<1);" mS HON $";MT(1);" 

AM) ";Y«(2)J" fttS HON ♦";MT(2) 
530 PRINT," TOUCH MY KEY FOR A )EH GA»C";:Z«=IM<EY« 
510 Z$=DI<EY«:iFZ$=""T»CN510ELSE10 
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Lires 600-610 .' Nobody wins 

If neither player gLesses the solution, a 
nessage is printed arid a new gane is set up if the 
players wish. 
600 PRINTe965,CHR$(31); "SORRY' NOeOOY HINS THIS GAfC ~ TtC NUM 

BER HAS ";s$; 

610 FORTI=lTO2000:f€XTn:PRINTe960,CHR«(30);:GOTO530 

Lines 1000-1060! Location and printing of prizes. 

Hhen a sqi.iare is chosen, this subroutine locates the 
description of the prize in that square and calculates 
the print location (LO) to be used in displaying the 
prize riane. The prize is printed in line 1060. 

1000 restore:fori=itoio:reaoz»:nexti 

1010 FORI=lTOA(H):RE/«)P«,M:NEXn 

1015 DATA" MOTOR HOME ",12000, "EUROPE TRIP' ",3000," GOLF D«T " 
,2000," PJPta ",5000," RECLDtR ",600 
1020 DATA" 1980 CAR ",6000," FUR COAT ",5000," TRS-80 ", 
1000," SAILBOAT ",9000," $5000 ",5000 
1025 DATA"CLOCK RADIO ",65," MOTOR BIKE ",750," CARPET ",900 
," HATER BED ",1100," C^RA ",250 

1030 DATA" COLOR TV ",1500," DISHWlSHER ",500," MICROt*«« ",6 
00, "MEXICO TRIP ",3000,"REFRIGERATOR",800 
1035 DATA" POGO STICK ",5," PET SKUM< ",50," AQUARIUM ",500," 
CHINA SET ",500," CANDY BAR ",1," STEREO ",350," LUGGAGE 

",500," TELESCOPE ",390," BICYCLE ",120 
1010 OATA"LINE PRINTER", 800," DISK DRIVt ",500," 2 GOATS ",25 
," HWiMONICA ",5," HILD Cm>' ",0 
1050 L0=(H-INT((H-l)/5)«5-l)il2+INT((H-l)/5)il28 

1060 PRiNTeLO,p<;R*;e«(i);:RETURN 

Lines 2000-2090! Instructions 

The instructions for the gane are printed for players 
who reqLiest then. In addition, sanples of the ten 
nunerals are displayed on randonly chosen backgroLTtds 
using the NAME connarid. 

2000 CLS!PRINTCHR$(23);" THIS IS THE GA« OF 

C0NCENTRATI0N":PRINT!PRINT"THE object OF the game IS TO"! 
PRINr"0ISCO(€R THE SECRET NUMBER" !PRINT"HIDOEN BEHIM) THE GWC B 
OARO." 

2010 PRINT"TfC BOtfffl IS DIVIDED INTO A"!PRINT"5 X 7 CHECKERBOARD 
. BEHIND EACH"!PRINT"LABELED SGU<«E IS ONE OF A"!PRINT"PAIR OF P 
RIZES. ON YOUR TURN," 

2020 PRINT"YOU CHOOSE TWO SQUARES! ff M"!PRINT"PRIZES WTCH, Y 
OU WIN THE PRIZE" :PRINT"MC 2 PIECES OF T»C PUZZLE"! PRINT" 
fiPE REVEALED. "iPRINT" PRESS WJY KEY TO CONTINUE"; 
2030 I»=D«<EY$!IFI$=""THEN2fl30 

2010 aS!PRINTCH»(23);"AS LONG AS YOU tMKE A WTCH,"!PRINT"YOUR 
TURN CONTINUES. EACH MATCH" !PRINT"YOU (MKE MXOHS YOU TO GUESS" 
2050 PRINT"AT THE PUZZLE. THE PUZZLE IS A"!PRINT"5-0IGri" NUMBER 
CONSISTING OF"!PRINT"TALL,THIN ^€RSIONS OF NUMERALS" !PRI1/T"ZER0 
THROUGH NINE. TO SEE THE" 
2060 PRINT"NUMERALS AS THEY HILL APPEAR, "!PRINTe722,"pRESS ENTER 

II 

2070 I$=INKEY»!IFI$=""THEN2fl70 

2080 REST0RE:F0RI=0TO9!REAOZ$!as:POKEX3+5,128+ftM)(63):W«E:PRIN 

Te981," THE NUMBER ";LEFT$(Z$,1)}" "J!PRINTe25,! 

2090 F0RK=2T015!PRINTB«(VAL(MID$(Z$,K,1)))5R»;:NEXTK!PR1>(TB>(1); 

!F0RTI=lTO500!>EXTn,I!POKEX3+5,CH!RETURN ^^ 



I dventures are 



isruptingly addictive 



Great Scott! 

What have you 
created? 

The international reception of Scott Adams' ADVENTURE 

game series is phenomenal! Each of the ten games takes the 

player on odyssies of intrigue and danger, through 

confrontations with various villains, in pursuit of a wide 

variety of mysteries and treasures, in surroundings both 

familiar and alien. You may find yourself in a voodoo den, 

on the edge of a strange and threatening galaxy, in the 

^core of a malfunctioning nuclear reactor, or in any one of the 

several other settings; ranging from mundane to bizarre. 

Challenge your genius! Order an ADVENTURE 



irtually tiirusting 



Master these ADVENTURES! 

5. The Count 



Special Sampler 

Adventureland 6. 

Pirates Adventure 7. 

Mission Impossible 8. 

Voodoo Castle 9. 



Strange Odyssey 
Mystery Fun House 
Pyramid of Doom 
Ghost Town 



fgosinto 



ADVENTURES are available for Pet™, 

i Sorcerer™, Apple™, TRS-80™ Microcomputer, 

and other major personal computers. 



arcosis — be^rare! 



adventure 
international 

Box 3435 • Longwood. Fl 32750 
(305)862-6917 



ime itself 




'Ol 



nravels ^rhile 



isking these/ 



rfchant^entsby 



cott Adams. 



Look Mfho^fi raving 
about ADVENTURE 

Out of 50 programs reviewed. Adventure was 

rated No. 1 ! "Highly recommended." 

80 Software Critique 

"Adams' Adventure is exquisite. It is a true 

tour-de-force ..." 

Recreational Computing 

, . It is worth the money to buy a computer just to 

play Adventure." 
Software Directory Winter 1980 

"... Truly absorbing simulations. These games require 

you to be inquisitive, innovative, a thinker, a risk taker, a 

logician, a warrior, and a lover of real challenges — in 

short, an Adventurer." 
Ramon Zamora, Recreational Computing Issue 4 

I LOVED IT! There was a real challenge to this program ..." 
Captain 80, 80 Microcomputing Issue 1 

Adventures 1-9, $14.95 each 
TO ORDER: CALL TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 




81 



5R]QL 
tt.E 



by Dr. Miles A. Smither 



Double your computer's 
ability! Now you can run a 

line printer and continue 
with your program without 

waiting for your printout. 

Spool automatically 

intercepts all LPRINTs, 

LLISTs, and NewDOS JKL 

output, stores it in a buffer 

at the top of memory, and 

drives the line printer while 

the program continues. 

Select a buffer size in 

memory appropriate to your 

program from several 

options. Can be used from 

BASIC or DOS; does not 

require any modifications to 

BASIC programs. 

Requires 32 or 48K disk 
system. $24.95 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 




THE STEREO GENERATOR 
continued from page 19 

118 N = E: / S3:NN = FS / S3: GOSUB 
20 

120 GOSUB 30 

122 N = A / S3:NN = a / S3: GOSl* 
20 

121 N = FS / S3:NN = D / S2:T = Q 

U: GOSUB 20 
126 N = G / S3:NN = FS / S2:T = E 

i; GOSUB 20 
128 N = G / S3:NN = D / S3:T = QU 

: GOSUE; 20 

130 N = FS / S3:NN = FS / s2:t = 

Ei: GOSUE: 20 
132 N = FS / S3:NN = D / S2: GOSUB 
20 

131 N = E / S3;NN = D / S2: GOSUB 

20 
136 N = G / S3:NN = a / S2; GOSUB 

20 
138 N = G / S3:NN = CS / S3:T = Q 

U: GOSUB 20 

110 N = FS / S3:nn = A / S2:T = E 

i: GOSUB 20 
112 N = FS / S3:NN = D / S2: GOSUE: 
20 

111 N = E / S3',m = D / S2: GOSUE: 

20 
116 N = G / 33;NN = a / S2: GOSUE; 

20 
118 N = G / S3',m = CS / S3:T = Q 

U: GOSUE: 20 

150 N = FS / S3:NN = A / S2:T = E 

i: GOSUB 20 
152 N = FS / S3:NN = D / S2:T = Q 

u: GOSUE; 20 

151 N = FS / s3:nn = a / S2:t = E 

I: GOSUE: 20 
156 N = FS / S3:NN = D / S3:T = Q 

U; GOSUB 20 
158 N = FS / S3:NN = A / S2:T = E 

i: GOSUB 20 

Envelopes Tl and T2 

175 Tl = RND (1) / 25 

190 T2 = RM) (1) / 25 

505 Tl = INT (Tl X 100) :T1 = Tl / 

10fl:T2 - INT (T2 I 100):T2 = 

T2 / 100 : VTAB 11: HTAB 1 
510 PRINT "WAVE ENVELOFtS 11="} T 

1?" AND T2=";T2;" 

Tenpo selection. 

531 X = 28 + ( INT ( RM) (1) 1 10 

)):temf'0 = x: gosub is 

532 VTAB 10 : HTAB 11 

533 F-RINT "TEMPO="; INT (.((TEMPO 

- 33) / - .56) + 100)1" BE 
ATS/MIN " 



Voice selection. 
535 PRINT :HF = INT ( RND (1) i 

8 + 1); poke voice,wf 
537 htab 13: print "voice factor 
=";hf;" " 

Octave selection. 
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512 
513 



511 
515 
516 
517 
550 
560 
570 
580 



511 X = INT (3 x RND (D) + i: ff 
X = WW THEN GOTO 511 
WW = X 

ON X GOSUE: 515,516,517: VTAB 
16: HTAB 13: PRINT "OCTAVES= 

";s2;" m ",'S3j" 

GOTO 550 

S2 = 2:S3 = 2: RETURN 
S2 = i:S3 = 2: RETURN 
S2 = 2:S3 = 1: RETURN 

GOSUE; 650 

GOTO 100 

HOME : VTAB 8 

PFINT " TO DEVELOP' YOUR' OW 

N program:"; print : htae; 6: 

PRINT "1. DELETE LINES lOfl-7 
00"; HTAB 6: PRINT "2.E£GIN 
HIGHER' THAN LINE 50"; HTAE: 6 

: mm "3. refer to instruct 

ION SHEET" 

VTAB 11 

PRINT " FOR BEST R'ESULTS C 

R-EATE PROGRAM IN XTAi^S S 

1,S2, m S3 WHEN USING OVE 

R- TONES," 

END 

VTAB 10 

PRINT " CtMJECT SF'EAKER TO 

CASSETTE PECTOER OR COW'UT 
ER TO HIFI AMPLIFIER (SEE I 
N- STRUCTION SHEET). TURN ON 

CASSETTE RE- CORDER IN 'RE 
CORD' MODE." 

GOSUE; 650 : GOSUE: 680 : GOTO 6 
30 

HOME : VTAB 7', HTAE: 1 
PRINT "RANDOM VARIATIONS OF 
'BARCAROLLE'" 
GOTO 175 

VTAB 19: INVER'SE : HTAB lO: PRINT 
"PR'ESS ESC KEY TO STOP" 
NOR'MAL 
KEY = PEEK ( - 16381); POKE 

- 16368,0 

IF KEY = 155 THEN 570 
RETUR-N 

VTAB 21 ; INVERSE : HTAB 9: PRINT 
"F'RESS RETURN TO CONTINUE" 
NORMAL 

IF KEY = 111 THEN 655 
R-ETURN Q 



590 
600 
620 



630 

635 
610 

615 
650 

OJJ 

660 

661 
662 
680 

681 
682 
683 



COMPUTER-AIDED DRAWING 
continued from page 15 

195 REM scale the remaining 
coordinates 

200 NX = (X(J)-XC) *S+XC 
210 NY = (Y(J)-YC) *S+YC 

220 HPLOT TO NX.NY 
230 NEXT J 
STRETCHING AND 
COMPRESSING FIGURES 
Proportional Size Changes: 
Horizontal Scaling 

The horizontal scaling procedure 
stretches or compresses the 
horizontal dimension of the figure. 
If the scaling factor is greater than 
one, scaling produces the effect 
that the figure is being pulled out 
from both sides. A scaling factor 
less than one will create the effect 
that the sides of the figure have 
been pushed in or compressed. 
Horizontal scaling is achieved by 
changing only the x coordinates 
with the scaling expression. The 
vertical coordinates remain 
constant. 

160 NX = (X(1)-XC)*S+XC 
180 HPLOT NX,Y(1) 
190 FOR J = 2 TO NP 
200 NX = (X(J)-XC) *S+XC 
220 HPLOT NX,Y(J) 
230 NEXT J 

Vertical Scaling 

Vertical scaling with a scaling 
factor greater than one gives the 
effect that the top and bottom of 
the figure have been pulled out. If 
the scaling factor is less than one, 
the form will appear to have been 
pushed in from the top and 
bottom. This type of scaling is 
achieved by changing the y 
coordinates only, using the given 
scaling expression. The horizontal 
coordinates remain the same. 
170 NY =(Y(1)-YC)*S + YC 
180 HPLOT X(l), NY 
190 FOR J = 2 TO NP 
210 N Y = (Y( J)- YC) *S + YC 
220 HPLOT X(J),NY 
230 NEXT J 

Variable Horizontal and Vertical 
Scaling Factors 

Figures can be changed and 
distorted in numerous ways by 
applying different scaling factors 
to the horizontal and vertical 
dimensions of the form. In this 
instance two scale factors will be 
employed, SX for the x 
coordinates, and SY for the y 



coordinates. A broad range of 

visual effects can be created by 

changing the horizontal and 

vertical dimensions of a form 

differently. 

200 NX = (X(J)-XC) ♦SX +XC 

210 NY = (Y(J)-YC) ♦SY+YC 

SCALING PROGRAM: 

The following program 
sequentially increases the size of a 
given triangle: 



MST 

5 REM NP REPRESENTS THE NUI«ER 

OF POINTS USED TO DEFINE THE 
FIGURE 
10 NP = ^ 

20 DIM X(NP),Y(NP) 
30 FOR J = 1 TO NP 
40 READ X(J),Y(J) 
50 ►EXT J 
60 DATA 100,60,130,120,70,120, 

100,60 
100 HGR : HCOLOR= 7 
110 REM COMPUTE THE CENTER POIN 

TS 
120 GOSUB 310 

130 REM S IS THE SCfLD€ FACTOR 
HO FOR S = 1 TO 3 STEP .3 
150 REM MOVE THE CURSOR TO THE 

FIRST POINT IN THE FIGURE 
160 NX = (X(l) - XC) I S + XC 
170 NY = (Yd) - YC) « S + YC 
180 HFIOT NX,NY 
190 FOR J = 2 TO NP 
200 NX = (X(J) - XC) I S + XC 
210 NY = (Y<J) - YC) « S + YC 
220 HFIOT TO NX,NY 
230 NEXT J 
210 NEXT S 
250 END 

300 REM COMPUTE XC AJ® YC. 
305 REM XL,YL,XS, AND YS HILL B 

E USED TO FIND THE LARGEST A 

ND SmLLEST X AND Y VALUES. 

310 xs = 28o:ys = i92:xL = o:yl = 


320 FOF- J = 1 TO NP 
330 Ir X(J) < xs THEN XS = X(J) 
310 IF X(J) > XL THEN XL = X(J) 
350 IF Y(J) < YS THEN YS = Y(J) 
360 IF Y(J) > YL THEN YL = Y(J) 
370 NEXT J 
380 XC = (XS + XL) / 2:YC = (YS + 

YL) / 2 ^«, 
390 RETURN © 
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recordings 



AMP RECORDING 

AND 

DUPLICATING SERVICE 

609 667-1667 

307 West Main Street 
Maple Shade, NJ 08052 



For Digital 
needs: 

* AMP "Data-sette" blank 
cassettes 

* Digital cassette 
duplication 

* Storage Boxes 

* Labels - Custom 
printing & blank 



For AUDIO 

needs: 

* On-location music 
recording 

* Record Album 
production 

* Stereo and Spoken 
Word cassette 

duplication 

* Blank cassette and 
supplies 



All cassette work at 
AMP R. & D. is custom 
work to fit your needs. 

Call or write to "Jerry" 
for more information. 



«? 
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Mountain Hardware, Inc. 



THE APPLE 
CLOCK. 

The Apple Clock from Mountain Hardware keeps time 

and date in ImS increments for over one year. On-board 

battery backup keeps the clock running in the event 

of power outage. Software controlled interrupts are 

generated by the clock. That means you can call up 

schedules, time events, date printouts ... all In real 

time on a programmed schedule. 

EASY TO USE! 

The Apple Clock is easily accessed from BASIC using routines 

carried in on-board ROM. With it, you can read time 

and program time-dependent functions for virtually any interval. 

From milliseconds to days, months or a year. 

PLUG IN AND GO! 

Plug the Apple Clock into a peripheral slot on your Apple 11 and 

you're ready to go. 

$262.50 




ROMPLUS+ 



NEW EXPANDABILITY. 

ROMPLUS-(- is a peripheral board whose added features can turn the APPLE* computer into the most 

powerful personal computer available today. ROMPLUS+ provides six sockets to accept individually 

addressable 2K ROM's or EPROM's. Keyboard Filter™ a 2K ROM program, comes installed on the 

ROMPLUS-t- board and adds many useful features to your Apple, Including: • Upper and lower case 

letters. • Multiple user-defined character sets. • Colored or Inverse-colored letters. • Keyboard macros 

—two keystroke, automatic typing of multiple, user-defined 
words or phrases. Including BASIC and DOS commands. 
• Mixed text and graphics. • improved cursor control. 
STOP LIST and END LIST. • Works with integer BASIC, 
RAM or ROM Applesoft, and DOS. • And more . . . 
quick to learn. Easy to use. • Software support provided 
on disk Includes demonstration programs and two 
Editors that allow you to define your own characters or 
keyboard macros. In addition to the Keyboard Filter ROM, 
ROMPLUS-t- offers five sockets for ROM or EPROM, plus "scratch- 
pad" RAM. And, sophisticated firmware on ROMPLUS-l- allows one, 
two, or more of Its chips to be used simultaneously for programs 

longer than 2K. 

$187.50 




6 SOUTH ST . MILfORD. MH 03055 

To order call TOLL-FREE 1-800-258-1790 (In NH call 673-5144) 
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Where can you dial one 

TOLL FREE number and be 

able to select the finest software 

from the world's foremost suppliers? 

800-258- 

the SaHware Exchange 

Our stockrooms are overflowing with thef inest software available 
in today's marketplace. We carry software from all these companies: 



• Racet 


• Synergistic Software 


•Acorn Software 


•Adventure International 


• Strategic Simulations 


• Hayden 


• Personal Software 


• Lance Micklus 


• Muse 


•Web Associates 


• Softape 


• Microsoft 


• Small Systems Software 


• Quality Software 


• Apparat 


•Sensational Software 


• Image Products 





We could not possibly list all of the software on this page, 
however, if you send us $1.00, you'll receive our catalog plus 
a $2.00 credit toward your next purchase! 






Suppose you and your family could spend a 
little time each month with someone who truly 
understands microcomputers. And this person 
talked to you about your computer in plain ol' 
everyday English. Suppose you could find out 
how these people are successfully dealing with 

the ever-increasing technology of the' 

microcomputer. Suppose too, that each article was geared 

to the person with a beginning or intermediate interest in 

personal computing. 

NOW you can get all this, and more, at a price you can afford. 

SoftSide — the magazine that provides its readers with tried and true 

listings, along with structured "walk-thrus" of some of the most 

stimulating software pieces, month after enjoyable month. 



\l 



Subscribe today! Until November 1, 1980, the price is only $15.00. 
After November 1, the price will be $18.00, so why not save $3.00 and start your family 

on the road to microcomputing? 



® 



A SoftSide Publication 



«M&90vVM€Mn6 miXCmWSUwQC e SOUTH ST., MILFORD. NH 03055 

To order: Call Toll-free 1-800-258-1790 (in nh caii (603)673-5U4) 
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MODEL I TO MODEL III 
PROGRAM CONVERSION 

The following information from 
the TRS-80 Model III reference 
manual should be of interest, and 
relief, to all Model I owners. 

From a language standpoint. 
Model III BASIC is fully 
compatible with Model I Level II 
BASIC. In fact, the two BASIC'S 
are identical, except the Model III 
BASIC includes one more 
function, TIMES. 
However, because of Model Ill's 
many special features not available 
in Model I, there are some internal 
differences which may require that 
you modify any Model I Level II 
BASIC programs you may have. 

1. For a given TRS-80 (16K, 32K 
or 48K RAM), the amount of user 
memory in Model III is 258 bytes 
less than the amount of Model I. 

2. To load a Level II BASIC 
program, you must select the Low 
(500 baud) cassette speed on your 
Model III. 

3. When running a Level II 
BASIC program which requires all- 
capitals keyboard entrie s, be su re 
to select all-caps mode. OHEDQD 
is the on/off toggle for all-caps. 

4. Unlike the Model I, Model III 
lets you interrupt a cassette, line 
printer, or RS-232-C operation by 
holding down the BREAK key. 
Some of your Level II programs 
may need modification to take this 
feature into account. 

5. The video display character 
sets are slightly different in Model 
I and Model III. Model III 
produces standard ASCII 
characters for codes 32 through 
127; Model I does not. In 
particular, there is no up arrow, 
down arrow, left arrow or right 
arrow in the Model III character 
set. However, Model III has an 
additional set of 96 special 
characters from which you can 
probably find whatever you need. 



Reprinted by permission from 
the TRS-80 Model III Reference 
Manual, copyright 1980 Tandy 
Corporation • 



GOAL 

continued from page 14 


810 COLOR= 6: VLIN 32,37 AT 6J PLOT 




5,32: PLOT 5,37} PLOT 7,32} PLOT 


570 IF G$ = "R" WD C < 6 WD A( 


7,37 


R,C + 1) = THEN C = C + 15 


820 WJN 32,31 AT 155 WJN 31,36 


A(R,C) = - IJ GOTO m 


AT 16: HLIN 16,22 AT 36: PLOT 


580 IF G$ = "R" AM) C = 6 GOTO 6 


17,37: PLOT 20,37: PLOT 15,3 


10 


i: PLOT 15,35: VLIN 33,36 AT 


590 IF G$ = "R" AND A(R,C + 1) = 


22: VLIN 32,31 AT 23: PLOT 1 


- 1 T^EN 660 


9,3i: PLOT 19,35: PLOT 18,37 


600 IF Gi = "D" AND R < 5 T»CN R 


: PLOT 21,37 


= R + i:a(r,c) = - i; goto 


830 VLIN 32,37 AT 26: PLOT 25,32 


190 


: PLOT 25,37: PLOT 27,32: PLOT 


610 F G$ = "D" AND R = 5 TICN P 


27,37 


G = PG + i: goto 690 


810 WJN 32,37 AT 29: VLIN 32,37 


620 F GI = "U" THEN PRINT J PRINT 


AT 33: PLOT 30,33: PLOT 30, 


5 PRINT " YOU C^'T GO BAG 


3i: PLOT 31, 3i: PLOT 31,35: PLOT 


K UP": GOTO 520 


32,35: PLOT 32,36 


630 PRINT : PRINT : PRINT : PRINT 


850 PRINT ""; 


: PRINT " YOU MUST EITHER US 


860 FOR T = 1 TO lOO: NEXT T: GOTO 


E 'L' OR 'R' OR 'D'";; GOTO 


780 


530 


870 COLOR- O: WXm. : FOR F = 1 


610 PRINT : PRINT : PRINT : PRINT 


TO 6: FOR G = 1 TO 5: PLOT 


" YOU D^'T mL THAT MOVE. 


6 I F - 1,6 1 G - 3: NEXT G: 


n'S OFF": PRINT "THE BOA 


m^ F: RETURN 


RD." 


880 FXT : HOME : VTAB li: PRINT 


650 GOTO 520 


TAB( 10)r'Hni I ENJOYED n 


660 mm : print : print : print 


II* 


" YOU CAN'T MOVE TICRE} THAT 


890 PRINT ; PRINT TAB( 10);"HOP 


'S HJCRE ": PRINT "THE nOIINT 


E YOU DID TOO!" 


ER HAS JUST MOe FROM." 


900 PRINT : PRINT J PRINT : END 


670 GOTO 520 


© 


680 REM F1.AYER NINS 


690 COL0R= O: FOR Z = 1 TO 6: PLOT 
6 I Z - 1,27: ICXT Z 






700 PRINT : PRINT \ PRINT TAB( 




7)"Y0U HIN. YOU MUST BE LUC 
KY!" 
710 PRINT : PRINT "TIC SOKt: C 


ATARI PROGRAMMING HINT 


Normally, when you CSAVE a 


offUTER - "}cg;" player - " 


program, you must press 


;pG 


RETURN twice for each copy. If 


720 PRINT "SPACE BAR TO PLAY : 


you wish to make more than one 


'ESC' TO END"; 


copy (which is the prudent thing to 


730 Gtr C$: F ASC (C$) = 32 THEN 


do), you must "babysit" the 
computer, waiting for it to finish 


10 


each copy, then type CSAVE 


710 F ASC (C$) = 27 THEN 880 


and press RETURN twice. Here 


750 GOTO 720 


is a short line you can type in 


760 GOSUB 870: PRINT : PRINT : PRINT 


when it is time to CSAVE and you 


; PRINT "Tit score: COMFtJTE 


would like several copies "just in 


R - "icg;" flayer - "ipg 


case": 


770 PRINT : PRINT "SPACE »« TO 


FOR 1=1 TO 3: POKE 


PLAY : 'ESC' KEY TO EM)"5 


764,12:CSAVE: NEXT I 


780 COLOR- O: FOR I = 31 TO 38: HLEN 




3,37 AT i: NEXT i: FOR T = 1 


The computer will now create 3 


TO 200 : NEXT T 


copies of your program 


790 X = PEEK ( - 16381): F X = 


automatically. By POKEing 764 


160 THEN POKE - 16368,0: GOTO 


with 12, we have made the 


10 


computer believe that someone has 


just pressed RETURN. 


800 IF X = 155 THEN POKE - 163 




68, O: GOTO 880 


James Garon 
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SYNERGISTIC SOFTWARE 



^ 



PROGRAM LINE EDITOR 



stronger than Integer! More powerful than Applesoft! Faster than a speeding cursor! 

Able to leap the longest statements In a single move! The Program Line Editor is the most 

sophisticated program development tool yet for the Apple II computer. 

Program Line Editor includes full feature line editors for both Integer and Applesoft programs that 

render all other techniques obsolete. Program development and modification can now be completed In 

a tenth the time previously required. The package includes a set of versatile 

user-definable escape functions which enable you to type commands or sets of commands 

with only two keystrokes! 

The Program Line Editor is available on disk and is compatible with any Apple II or 
Apple II Plus system with disk drive. $40.00 



HIGHER TEXT 



Higher Text provides the display capabilities you need 

when the Apple's text output just isn't sufficient. With Higher Text you can print characters in 

upper case, lower case, upside down, sideways and In any color. If standard characters still aren't 

adequate.try printing in script, Old English, foreign languages, or special scientific symbology. 

Define your own specialized or decorative character sets, and easily create 

professionally customized displays without any hardware modifications. 

Higher Text comes on disk and will run on any Apple II or Apple II PLUS system with disk drive. 

The text generator is in machine language and links easily 

to the user's application program. $35.00 



WILDERNESS CAMPAIGN 

Free the kingdom of Draconia from the Evil Necromancer! Your party must overcome obstacles, defeat 

hostile inhabitants, survive natural hazards, explore tombs, temples, castles, and ruins, 

in search of gold and magical devices. 48K Integer; Cassette $17.50, Disk $19.95 




DUNGEON CAMPAIGN 

Direct an expeditionary force into an underground labyrinth. Catacombs filled with treasures and 

hazards, poisonous vapors, evil sorcerers, stairways, pitfalls and an 

incredible assortment of MONSTERS. 16K Integer; Cassette $14.95, Disk $17.50 



MAILING LIST DATABASE 

Entry and storage of a list of names with associated addresses, cities, states, zip codes, 
phone numbers, comments, and code designations. List, search, edit, print labels; convert prior 
mailing lists. Up to 225 records can be loaded on line at any time. 48K Applesoft, Disk $34.50. 

HIGHER GRAPHICS 

A complete set of shape generation, manipulation and utilization tools for the programmer. Quickly and 

easily, you add sophisticated graphic displays and effects to your programs. Shape Maker, 

Table Combiner, Screen Creator, 4 shape tables, 3 high-res displays, ana the machine language 

graphics routines required to produce high resolution graphics on the Apple II. 48K, Integer Basic, Disk 

$24.95. 



To order call TOLL-FREE 1-800-258-1790 

(In NH call 673-5144) 
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Preferred by 
computer 
professionals 
everywhere! 



^The 
Green 
Screen 



The BEST green 

screen available! 

Solid, thick green 

plastic with beveled 

edges. Don't confuse 

this with the thin film 

offered by other 

manufacturers. Ready 

to install, self 

bonding, gives 

dustproof seal, 

optically correct with 

no distortion, and 

shatterproof. Fits 

TRS-80 Model I, 

Model II and Leedex 

Video 100 monitors. 

$19.95 



TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 




WHAT TO DO . . . 
continued from page 13 

a child is always being told what to 
do, having a machine that does 
whatever the child commands is a 
liberating experience. 

The computer builds self 
confidence, judgement, analytical 
skills, verbal and aesthetic skills, 
and even reflexive skills in 
children. Whether they are flying a 
space ship with a computer 
joystick, drawing patterns on the 
screen, playing a word game, or 
writing their own programs, they 
are constantly expanding their 
abilities and their knowledge. In 
this respect the computer has the 
same potential as television, with 
the advantages that the computer is 
interactive while the television is 
passive. In the case of the 
computer, the owner decides what 
programming to provide, not the 
advertising sponsor. 

Even if the computer is 
purchased as a leisure device, it is 
as easy to justify financially as 
amateur radio, skiing, boating, and 
many other hobbies. It does not 
require good weather, is readily 
available without notice or travel 
time, does not require significant 
operating expenses (at most a few 
cents an hour for electricity), and 
offers a wide range of variety. 

In a society where information is 
the most valuable commodity, the 
computer will soon be 
indispensable, even in the home. 
Already, timesharing networks like 
CompuServe and the Source make 
available up to the minute 
information on the stock market, 
latest news, and developments in 
many fields. In addition, they offer 
informational data bases that allow 
you to search efficiently for 
information, electronic mail 
services, and the programming and 
sorting power of a mainframe 
computer - all at the call of your 
home computer. 

The intellectual challenge and 
development of analytical abilities 
afforded by the personal computer 
may have a major effect on society. 
In order to solve a problem with a 
computer, it is necessary to think 
through the problem logically. 
Because people learn to program 
by starting with small problems 
and proceed to larger ones, they 
develop problem solving skills in a 
systematic way. 

The computer has so many 
potential uses that justifying its 
purchase is like justifying the 



purchase of an automobile. You 
may say that you need a car to get 
you to work or to get your 
groceries, but you will end up 
using it for vacations, going to the 
theatre, delivering newspapers, or 
any of a thousand purposes that 
were not in your original plans. 
The same thing will happen with a 
computer. All you need to make 
the purchase worthwhile is a 
determination to use the computer 
long enough to discover what it 
can do. ^Sm 



COMPUTERS AND EDUCATION 
continued from page 13 

Colleges and universities, where 
occasionally there is a mixture of 
interest and talent, may offer the 
best source for the educational 
market. Equipment is usually more 
available than in middle and high 
schools, and marketability is not as 
important a consideration as with 
commercial software vendors. 
Programs that develop at this level 
don't receive much publicity. They 
may become known in some 
circles, but not nationally. 

Hopefully some of what's 
happening at each of these levels 
will filter its way to us and we can 
publicize the good programs that 
are around. But for those who 
envision sitting down at their 
computer to take lessons in 
anything from Spanish to physics 
to auto maintenance, they'll have 
to wait a little longer. ^^ 
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THE BEST OF MUSE 

A COLLECTION OF OUR FIVE MOST POPULAR CASSETTE PROGRAMS 

NOW ON DISK 



MAZE GAME, the original 
and still the best maze game 
for Apple II users. Set the size 
and difficulty level of your maze 
and watch as it is randomly 
generated. Special graphics 
place you inside a colorful 
maze, with a blue floor, green 
and yellow walls, and a pink 
sky above. Player options in- 
clude getting a maze map, hav- 
ing a compass available, and 
leaving retraceable footprints 
on the maze floor. 16K Integer 
ESCAPE is an exciting 3-D 
adventure with special color 
graphics that place you inside 
a maze of hallways. Find your 
way out by following the clues 
of people you meet inside. But 
be careful . . . the liars will not 
hesitate to give you false maps 
and compasses. It's hard to 
quit this game! Rated as the 
number 1 Apple program by the 
M&rin Computer Center. 16K 
Integer. 

SIDE SHOWS is a collection 
of six exciting games selected 
for their originality, ease of 
operation and Imaginative use 
of the Apple. Includes the Ap- 



ple Tree, Safecracker, Pip 
Shoot, Minelayer, Blockade and 
Quadripong. In the Apple Tree 
two players use the paddles to 
catch randomly falling apples. 
In Blockade and Minelayer try 
to surround your opponent with 
a moving wall or mine field. Pip 
Shoot can be played by two or 
more and the object is to shoot 
down as many "pips" as possi- 
ble. Quadripong is four wall 
pong with varying ball speed 
and sound. Use the paddle 
carefully to be the first to open 
the safe in Safecracker. 16K 
Integer. 

TANK WAR is a state-of-the- 
art shootout for two players 
with dramatic sound and 
graphics Players choose the 
style and size of their tank 
Steer your tank with the game 
paddles to pursue and out- 
maneuver your opponent Fire 
two types of missiles to disable 
and destroy the enemy. 16K 
Machine Language 
THE MUSIC BOX start the 
MUSIC BOX and your Apple 
comes alive with sound and 
color. Play It as a three-octave 



instrument or type in a song 
and the music box will play it 
for you! A brilliant full color 
light show accompanies the 
music. Standard musical nota- 
tion includes sharps and flats, 
note time, rests, dotted notes 
and tempo. Your songs can be 
saved on disk and recalled 
later. All notes can be easily 
retuned from the keyboard to 
produce special sound effects. 
Complete with two songs and 
docgmentation that explains 
basic musical notation. 16K 
Machine Language. 
All on one disk. A $64.75 value 
for only $39.95 



vn 



^-^ TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-6144) 

6 South St., 
Mllfonl, NH 03055 



The above programs are also available on cassette for $12.95 each. 
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The BONE FONE is a 
miniaturized AM/FM stereo 
system that drapes over your 
shoulders like a scarf. The BONE 
FONE gives new meaning to the 
word portable. You don't carry a 
BONE FONE around with you. 
You wear it. Ski with it, cycle, jog 
or just take a leisurely stroll 
through the woods with it. It's the 
hands-free stereo that brings 
beautiful music to every indoor or 
outdoor activity without disturb- 
ing those around you and without 
covering your ears. 

The BONE FONE stereo is 
covered with a sleeve made of 
Lycra Spandex - the same 
material used to make expensive 



Bone 
Fone 



swim suits, so it's easily 
washable. You simply remove the 
sleeve, dip it in soapy water, rinse 
and let dry. The entire system is 
also protected against damage 
from moisture and sweat making 
it ideal for jogging or bicycling. 

The BONE FONE has been sell- 
ing nation-wide for $70. HARD- 
SIDE's special price is ONLY 
$56.95 plus $2.50 handling (we 
pay the UPS charges). 

9902 $56.95 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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TRS-80 intprfoei 
oKerfMliyes... 

Featuring the Quality Engineering and 
IVIanufacturing of Steve Ciarcia and Micromint 



COIVIM-SO 



CHATTER BOX 




FULL 8-BIT PARALLEL PORT 

RS-232-C PORT (up to 19,200 baud) 

UP TO 16 UNITS CAN BE CHAINED TOGETHER 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

CONNECTS TO KEYBOARD OR E.I. 

ONLY $179.95 



FULL 8-BIT PARALLEL PORT 

RS-232-C PORT (up to 19,200 baud) 

ACOUSTIC MODEM 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

CONNECTS TO KEYBOARD OR E.I. 

INCLUDES TERMINAL SOFTWARE 

ONLY $259.95 



DISK CONTROLLER (up to 4 drives) 

DATA SEPARATOR 

INCLUDES 16K OF RAM 

PROVISION FOR AN ADDITIONAL 16K RAM 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

Available September 1980 

ONLY $299.95 



BUSY BOX 



8 1/4" X 6 2/5" PLASTIC CASE 

CABLE AND CONNECTOR FOR TRS-80 KEYBOARD E.I. 

OPERATING MANUAL 

INCLUDES BASIC LISTING FOR CONTROL ROUTINE 

LEVEL II MINUMUM SYSTEM 

ONLY $109.95 

'TRS-80 is a trademark of Tandy Corp. 



6 SOUTH ST . MILFORD. NH 03055 

To order: Call Toll-Free 1-800-258-1790 (m nh can (603)673-5U4) 
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Level-ll, 4K 
Level-ll 16K no keypad 
Level-ll 16K with keypad 
COMM-80 Interlace 
CHATTER BOX Interlace 
Disk-80 Interlace 
Expansion Interface, no RAM 
Expansion Interface 16K RAM 
Expansion Interface 32K RAM 
RS-232-C Board 
TRS-232 Printer Interface 
16K Memory Kit. TRS-Keyboard 
16K Memory Kit, TRS-Exp. Int 
Percom, TFD-100. 40-track 
Percom, Dual TFD-100 Drives 
Percom, TFD-200. 77-track 
Percom Data Separator 
Percom Extender Card 
2-Drive Cable 
4-Drlve Cable 
Data Dubber 

Percom Electric Crayon w/cbl 
Busy Box, TRS-80 
BSR X-10 Starter Kit 
Busy Box 4-yr Control Program 



ATARI 



APPLE 



ATARI 400 Comp. System, 8K 
ATARI 800 Comp. System 16K 
ATARI 410 Program Recorder 
ATARI 810 Disk Drive 
ATARI 815 Dual Density Disks 
ATARI 820 Printer (40 col.) 
ATARI 822 Thermal Printer 
ATARI 825 Printer 
ATARI 830 Acoustic Modem 
ATARI 850 Interface Module 
ATARI Light Pen 
8K RAM Memory Module 
16K RAM Memory Module 
ATARI Joystick Controllers 
ATARI Paddle Controllers 

CARRYING CASES 

TRS-80 Computer Case 

TRS-80 Monitor Case 

APPLE System Case w/1 drive 

APPLE System Case w/2 drive 

APPLE .,^^^__ System Case w/mon. 




$649.00 


$599.00 


$768.00 


$669.00 


$849.00 


$749.00 




$179.95 




$259.95 




$299.95 


$299.00 


$279.00 


$418.00 


$369.00 


S537.00 


$459.00 


$99.00 


$89 00 


$59.95 


$49 95 


$119 00 


$89 00 


$119.00 


$85.00 


$399.95 


$389 00 


$795.00 


$775 00 


$675.00 


$599 00 




$29.95 


$15.95 


$15.00 


$29.95 


$29.00 


$39.95 


$39.00 


$49.95 


$44 95 




$279 95 


$109.95 


$99 95 


$12495 


$99.95 




$19.95 


$629.95 


$499 00 


$1079.95 


$819 00 


$89.95 


$59.00 


$699.95 


$569.00 


$1495.95 


$1219.00 


$599.95 


$469.00 


$449.95 


$369.00 


$999.95 


$819.00 


$199 95 


$169 00 


$219.95 


$179 00 


$74.95 


$59 00 


$12495 


$99 00 


$199.95 


$159.00 


$19.95 


$18.95 


$19.95 


$1895 


$109.00 


$99.00 


$84.00 


$79.00 


$109.00 


$99.00 


$119.00 


$109.00 


$129.00 


$119.00 



MIn Hard Apple Clock 

MIn Hard ROMPLUS-i- v»/Fil 

16K Memory Kit 

Busy Box. Apple 

BSR X-10 Starter Kit 

PET/CBM 

PET 2001 large keyboard, 16K 
PET 2001 large keyboard, 32K 
CBM 8032 Busmess Comp 
CBM Cassette Recorder 
CBM 2040 Dual Disk Drives 
CBM 8050 Dual Disk Drives 
CBM Modem 
CBM Voice Synthesizer 
CBM to IEEE Cable 
IEEE to IEEE Cable 

PRINTERS 

Centronics 730 

Centronics 737 

Centronics 779 

Centronics 779 w/lower case 
& motor control 

NEC 5510 SpinWriter 

NEC 5520 SpinWriter 

NEC 5530 SpinWriter 

NEC Tractor-Feed Option 

LRC 7000-1- (64-col.) 

LRC 7000+ (40-col.) 

Okidata Microline-80 

Tractor-Feed Option 
RS-232-C (2K) Option 

LRC to TRS-80 or APPLE 

LRC to PET. IEEE 

LRC to RS232C. male/female 

730 or 737 to TRS-80 

NEC or 779 to TRS-80 

RS-232-C/RS-232-C male/male 

DUST COVERS 

TRS-80 (3pc set) 
APPLE 
ATARI 800 
ATARI 400 
PET/CBM 2001 



'TRS-80, ATARI APPLE, and PET/CBM are trademarks ol Tandy Corp, Warner Communicalions. 
Apple Computer Co and Commodore respectively 



List 


Our \ 


Price 


Price \ 


$280.00 


$262 50 


$200.00 


$187.50 


$119.00 


$85.00 


$11495 


$99.95 


$124.95 


$99.95 


$995.00 


$895.00 


$1295.00 


$1195.00 


$179500 


$1619.00 


$95.00 


$84.95 


$1295.00 


$1195.00 


$1695.00 


$1495.00 


$395.00 


$349.00 


$395.00 


$349.00 


$40 00 


$37.50 


$40.00 


$37 50 


$795.00 


$699.00 


$995 00 


$875.00 


$1559.00 


$1095.00 


$1779.00 


$129500 


$3195.00 


$2595.00 


$3395.00 


$289500 


$3195.00 


$249500 


$225.00 


$195.00 


$405.00 


$34900 


$389.00 


$339.00 


$800.00 


$709.00 


$140.00 


$129.00 


$299.00 


$279.00 




$20.00 




$59 00 




$65.00 




$29.00 




$35.00 




$2495 




$7 95 




$7.95 




$7.95 




$7.95 




$11.95 



MIL 



6 SOUTH ST 

To order: Call Toll-free 7 



fORD. NH 03055 

-800-258-T 790 im NH caU (603)673-5U4) 



Thf iollwirt Iwthtngr A Hitdiittr (0>^ nt Kob'U-Itt I Soni fnlrrp"irs 



ScilrS.i)!- Puhl.. 
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The Software Exchange Order Form 



DESCRIPTION 



MEMORY TYPE 



PRICE 



SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 



Check ADD handling charges 

Money Order Additional charges 

TOTAL 



$1.00 



CHARGE ACCOUNT NUMBER 








Signature.. 



.Exp. Date. 



.Inter. No.. 



Name- 



Address. 



City. 



.State. 



.Zip. 



Spaclal prices In effect 60 days from mailing 



MAIL TO: The Software Exchange 
6 South St. 
Mllford, NH 03055 
(in NH call 673-5144) 



or, CALL TOLL FREE 

for Orders Only 

1-800-258-1790 



Level II software available on disk for a $5.00 (par order) medium cfiarge. Tfils extra fee Is for any number of programs transferred to disk from tape 

wlien you order. If tfie order exceeds tfie capacity of a single disk, we absorb tfis extra cost. 

Be sura to Include handling ctiarge and any additional cfiarges when figuring your total. All orders are shipped within 48 hours. 

All pctees ara aublect to change without notice. We are not lesponslblc for typographical errors, Including Incorrect prices. 

ALL SOFIV/ARE GUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk properly protected for free 
replacement. Sand to the attention of Bette Keenan, Customer Service Representative: please enclose a brief note and your name and mailing 
address with tfie software. 

ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE assumes no liability for loss or damage caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors, Including but not limited to any Interruption In 
service, loss of business or anticipatory profits or consequential damages resulting from use or operation of such equipment or software. 
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COMING NEXT 



S 



MONTH 



IMHOTEP - a role playing simulation 

WORLD SERIES 

MOON LANDING and EARTH PORT II 

OCTADRAW 

ESCAPE - a maze with 3-dimensional graphics 

PLUS: 

A new adventure column by Scott Adams, the next installment of SoftSide's Data 
Base, an in depth look at the inner workings of the "Dr. Livingston . . ." 
adventure, AND MORE! 




THEWKTCHTIUTREPLACES 
EVEIYTHIN6. 

In tact it even replaces ttie age-old mytti ttiat a timepiece loaded with talent has to be 
expensive. 

The Casio C-80 has a list price of $50. It has been advertised nationally for $75. 
HARDSIDE's special price is only $44.95 (we even pay the UPS charges). 
A CALCULATOR MADE FOR REAL FINGERS 

Here's the first calculator chronograph that can be operated easily with your fingertips. No 
need to use a stylus or pen; the keys are far enough apart that even the broadest fingers can 
work them. 

Add, subtract, multiply, divide ■ even perform chain calculations up to eight places, plus 
decimal. Numbers appear in crisp, liquid, crystal digits. 
STOPWATCH, 2 TIME ZONES ■ AND MORE 

You get 1/100 of a second accuracy, lap times, and up to 59.59 minutes of track-style 
timekeeping. 

You also get two time zones: the second zone can be set for 12 or 24-hour time. Hours, 
minutes and seconds are displayed with reliable 15-second-a-month quartz precision. 

Press another button and the day of the week and date appear. And press another for built- 
in night light. 

FEATHER-LIGHT, YET RUGGED 

The 1-3/4 oz. case and band are constructed of high-impact black plastic. And so 
lightweight and comfortable, you may not realize that you are wearing it. This Casio 
chronograph is rugged, resists scratching, and is water-resistant. 

99-01 $44.95 

TO ORDER TOLL FREE 1 •800-258-1 790 (in NH call 673-5144) 
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software you can relyon. 



PERSONAL/BUSINESS 

SMALL BUSINESS BOOKKEEPING (S-80) 
Roger Robitaille Sr 

16K Level II $24 95 

Extended version 32K disk 

Without Journal $29 95 

PERSONAL FINANCE 
Lance Micklus 
Level II, 16K $9.95 

GAMES 

X-WING II (S-80) 
Chris Freund 

Level II. 16K $9,95 

INVASION (S-80) 
Chris Freund 

Level II. 16K $9 95 

32K Disk $14.95 

SPACE BATTLES (S-80) 

Level II. 16K tape $14.95 

Level II. 32K disk $19.95 

SNAKE EGGS (S-80) 

Level II. 16K $14.95 

LIFE TWO (S-80) 

Level II. 16K $14.95 

BEE WARY (S-80) 

Level II 16K $14.95 

ANDROID NIM (S-80) 

Level II. 16K $14.95 

AMAZIN' MAZES (S-80) 
Robert Wallace 

Level II, 16K $9 95 

STAR TREK III 5 (S-80) 
Lance Micklus 

Level II 16K $14.95 

UP PERISCOPE (S-80) 
Ron Potkin 

Level II 16K $14.95 

WARPATH (S-80) 
Ron Potkin 

Level II 16K $14.95 

MEAN CHECKERS MACHINE (S-80) 
Lance Micklus 

Level II, 16K $ 9 95 

Disk $14 95 

KRIEGSPIEL 2 (S-80) 
Ron Potkin 
Level II, 16K (cassette only) $14.95 

EDUCATIONAL GAMES 

9 GAMES FOR PRE-SCHOOL CHILDREN 
George Blank 
Level II. 16K $9.95 



UTILITIES 

UTILITY (S-80) 

Nepenthe Publications 

32K and 48K disk systems $20.95 

SUPER SIMON (S-80) 
George Blank 

Level II, 16K (disk or cass) $9.95 

STAD (Symbolic Trace and Debug) (3-60) 
Paul van der Eijk 
16K, 32K and 48K versions 

on one cassette $24.95 

DYNAMIC DATA BASE (S-80) 
Ken Knecht 

Disk 32K $39.95 

MICRO TEXT EDITOR (S-80) 
Don Coons 

Level II 4K $9.95 

FLOPPY DISK DIAGNOSTIC (S-80) 
Dave Stambaugh 

16K to 48K. 1 to 4 disk drives $24.95 

Z80 ZAP (S-80) 

ORG-TEX Industries 

16K Disk $29.95 

TINY COMP (S-80) 
Dave Bohike 

Tape version $19.95 

Disk version $24.95 

RPN CALCULATOR (S-80) 
Russell Starkey 

Level II 16K $9.95 

KEYBOARD 80 (S-80) 
John Adamson 

Level II, 16K $9.95 

SPOOLER (S-80) 
Miles Smither 

Disk $24.95 

KVP {S-80) 

Lance Micklus 

16K Level II Tape $14 95 

INVENTORY S' (S-80) 
Roger Robitaille 

Level II 16K $24.95 

32K Disk $59.95 

ST80D (S-80) 
Lance Micklus 

32K Disk systems $79.95 

ST-80 UC (S-80) 

4K Level II Cassette $24.95 

BASIC CROSS REFERENCE 
RX-X-REF-RENUMX 
Lance Micklus 

RX (Disk, 32K) 1 disk system $24,95 

XREF (Level II version 

16K on Cassette $19.95 

RENUMX (XREF w/renumber and rescue) 

Level II on cassette $24 95 

RENUMBER (separately) $7 95 

LANGUAGES 

APL-80 VERSION 3.0 (S-80) 
Phelps Gates 

32K single disk $39.95 

16K Level II cassette $14 95 

ADVENTURES 

ADVENTURES ON TAPE 
Scot Adams 
Count, Pirates Cove. Fun House, Pyramid of Doom, Strange 
Odyssey, Ghost Town, Mission Impossible, Land, 
VooDoo $14,95 



PATHWAYS THRU THE ROM 
Blank, Fuller, Hartford, 
Phillipp and Richardson . . 



.$19.95+ $1 



3D (Apple 2) 

Mark Pelczarski 

A Rom Disk 48K $29.95 

MAGIC PAINTBRUSH 
Mark Pelczarski 
Disk 32K $29.95 

ANDROID NIM 

Disk/24K $17.95 
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We're 
Bigger 

and Better 
than Ever 

\ Special Offer to New Subscribers: 
SoftSide - $15 for one year (12 issues) 

Don't miss a single issue of SoftSide - the finest software 
source for the Radio Shacl< TRS-80*, APPLE II*, and ATARI*! 

Save hours of typing — buy SoftSide's programs for your 
computer already on cassette or diskette, with magazine. Try our 
low introductory price for one year (12 issues). 

To order, call TOLL FREE 1-800-258-1790 (In NH call 673-5144) 
or mail the following information to: SoftSide Publications, 
Subscriptions, 6 South Street, Milford, NH 03055. 



I I SoftSide; $15.. one yr.,(12 issues) I I 

I I SoftSide: Apple on cassette $69. I I 

I I SoftSide: Apple on diskette $129. 



SoftSide: S-80 on cassette $69. 
SoftSide: S-80 on diskette $129. 

SoftSide: Alari on cassette and diskette 
will be available sooni 



I own: 

D Apple 
D TRS-80 
D Atari 
DPet 
D Other 



Exp. Date. 
Signature. 
Name 



. Interbank #(M/C only) 



Address . 



.State. 



Subscribe to SoftSide today! 

Introductory offer valid until November 1, 1980. Not applicable to overseas subscribers. Write for subscriptions rates. 

*TRS-eO, Apple and Atari are Irademarks ot Tandy. Apple Computer Co , and Warner Communications, respectrvely 




